TK25 DATA RELIAB TST | AH-T784B-MC me 
os “ore es SOSOQ8N | 
nana COPYRIGHT© 1984-85 MADE IN USA 











d oF w 
A <;PARAMETER CODING 


—_———— ee ce ee 








—_--—_——_—_----—--4 


Bi 


MACRO M1200 28-MAR-85 15:28 PAGE 3 ! 
SEQ 0001 


-REM € 
IDENTIFICATION 


PRODUCT CODE: AC-1783B-MC 


PRODUCT NAME: CZTKIBO TK25 DATA RELIABILITY TEST 


MAINTAINER: MAGTAPE DIAGNOSTIC ENGINEERING 


AUTHOR : ROBERT F. WERY/JACK RICHARDSON/TERRENCE REILLY 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
DIGITAL UNIBUS MASSBUS 
DEC 


| 

PRODUCT DATE: 15-MARCH-1985 
POP 

DECUS DECTAPE 

| 
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REVISION HISTORY: 


REVISION B (25-0CT- Pan BY TERRENCE W. REILLY 
CORRECTED THE FOLLOWING 


1) DATA a oom ERROR ON A SUBSEQUENT UNIT, AFTER A DIFFERENT 
UNIT HAS BEEN DROPPED DUE TO A FATAL ERROR. 

2) WRITE RETRY ALGORITHM HAS BEEN CHANGED TO PERMIT 256 BAD 
TAPE SPOTS. ONLY THE FIRST 20 WILL BE “MAPPED”, BUT THE 
REMAINDER WILL BE TALLIED. 

3) A LINE CLOCK SERVICE ROUTINE HAS BEEN ADDED TO ELIMINATE 
SOME OF THE MACHINE DEPENDENT TIMING LOOPS. (FOR THE 11/73) 
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| 
USER'S GUIDE | 


GENERAL INFORMATION 
PROGRAM ABSTRACT 


mo 


j 
FUNCTIONAL pt the 
STRUCTURE OF PROGRAM ' 
MEMORY MAP 
DIAGNOSTIC INFORMATION 

SCOPE 


ERROR RECOVERY 
WRITE ERROR RECOVERY 
MEDIA/OPERATIONAL SELECTIVE WRITE ERROR 


OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM 
EARLY WARNING WRITE ERRORS 
GNOSTIC TIMING ADJUSTMENT 


DIA 
SYSTEM REQUIREMENTS 


HARDWARE REQUIREMENTS 
SOFTWARE REQUIREMENTS 


N 
RELATED DOCUMENTS AND STANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 
ASSUMPTIONS 
DIAGNOSTIC HISTORY 
OPERATING INSTRUCTIONS 
HARDWARE PARAMETERS 
SOF TWARE oe 


CLEAR COUNTERS 

RESET RANDOM VARIABLES 
PRINT SOFT ERRORS 
INHIBIT R 


ECOVERY 
BAD TAPE SPOT DETECTION 
DISABLE INTERRUPTS 

INHIBIT RFC ERROR REPORTS 

CONTROLLER RAM DUMP 

ENABLE EARLY WARNING MESSAGES 

CHANGE CMD SEQUENCE 

COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 

DATA PATTERN LIST FOR A, IN SOFTWARE DIALOGUE 


EXAMPLES OF SOFTWARE DIA 


LOGUE 
BASIC FUNCTION AND DATA RELIABILITY WITH ALL 
ERROR REPORTING ENABLED 
TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC 
FUNCTIONS. 
TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA 
RELIABILITY 


wg eit TIMES 


YSTEM CONFIGURATION 


RECOVERY ALGORITHM 
TEST EXECUTION TIMES 


ERROR INFORMATION 


ERROR REPORTING 
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SEQ 0004 


ERROR 1 - COMMAND PACKET ADDRESS NOT ON A 
MODULO 4 BOUNDRY: 
ERROR 2 - TK25 NOT READY: 
ERROR 3 - NO RESPONSE ERROR: 
ERROR 4 - NO INTERRUPT ERROR: 
SPECIAL CONDITION ERRORS: 
ERROR 5S - TERMINATION CLASS CODE 0, UNDEFINED 
SPECIAL CONDITION 
ERROR 6 - TERMINATION CLASS CODE 1, ATTENTION 
CONDITION 
atu he - TERMINATION CLASS CODE 2, TAPE 
ER eae - TERMINATION CLASS CODE 3, FUNCTION 


REJEC 
ERROR 9 - TERMINATION CLASS CODE 4, 
as aa ERROR 
ERROR 10 - — CLASS CODE 5, 
RECOVERABLE ERR 
ERROR ii - TERHINATION CLASS CODE 6, 
UNRECOVERABLE ERR 
ERROR 12 - Mi lc CLASS CODE 7, FATAL 
SUBSYSTEM ERROR 
ERROR 13 - RFC NON-ZERO ERROR: 
ERROR 14 - RETRY LIMIT EXCEEDED: 
ERROR 15 - TOO MANY INTERRUPTS: 
ERROR 16 - CAPSTAN RUNAWAY: 
ERROR 17 - DATA COMPARE ERROR: 


ERROR HALTS 


PERF 


ORMANCE REPORT 


TEST SUMMARIES 


S 
DEVI 
EN 


BI 


OULwRoRPH 
ror 


reer 1 - BASIC FUNCTIONS. 


T 2 - DATA RELIABILITY. 
WRITE AND READ STREAMING TEST. 


TEST 4 - WRITE COMPATABILITY/WRITE UTILITY. 


READ COMPATABILITY/READ UTILITY. 
ST 6 - EXECUTE OPERATOR SELECTED COMMAND 


QUENCE. 
OR ale TABLES 


G 
BUS INTERFACE SPECIFICATIONS 


T DEFINITIONS FOR TK25 REGISTERS 
TK2S REGISTER SUMMARY 
TK25 STATUS REGISTER (TSSR) 

TSSR READ ONLY 

TSSR WRITE ONLY 
EXTENDED STATUS REGISTER 0 (XSTATO) 
EXTENDED STATUS REGISTER 1 (XSTAT1) 
EXTENDED STATUS REGISTER 2 (XSTAT2) 
EXTENDED STATUS REGISTER 3 (XSTAT3) 


ee 
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SEQ 0005 | 

167 

168 

169 

170 GLOSSARY 

t, oi eee a ee eh arent 

172 

ia ACT AUTOMATED COMPUTER TEST SYSTEM 

we APT AUTOMATED PRODUCT TEST SYSTEM | 

177 BYTE/RECORD/FILE COUNT IS STORED IN THE 4TH WORD OF THE COMMAND PACKET | 

178 BRF AND IT'S USE BY THE TK25 DEPENDS ON THE TYPE OF 

i sae 

rt CMD TK25 COMMAND 

183 COMMAND PACKET FOUR WORD PACKET IN THE CPU MEMORY WHICH 

184 CMDPKT CONTAINS ALL INFORMATION NEEDED BY THE TK25 TO 

a EXECUTE A COMMAND. 

187 EXTENDED STATUS FOUR eae OF TK2S5 STATUS WHICH ARE TRANSFERRED 

188 AS PART OF THE MESSAGE PACKET AT THE COMPLETION 

150 OF A COMMAND. 

191 MESSAGE PACKET SEVEN WORD PACKET IN THE CPU MEMORY INTO WHICH 

192 THE TK25 STORES STATUS AT THE COMPLETION OF A 

is ene 

ise PC PROGRAM COUNTER 

ise PSW PROCESSOR STATUS WORD 

199 RESIDUAL FRAME COUNT THIS COUNT IS PART OF THE MESSAGE PACKET AND 

200 RFC CONTAINS THE NUMBER OF _ BYTES/RECORDS/FILES 

201 REMAINING TO BE PROCESSED AT THE COMPLETION OF A 

coe COMMAND. 

204 SPECIAL CONDITION TSS4 BIT1S. WHEN SET, INDICATES THAT THE LAST 

84 SPEC COND COMMAND DID NOT COMPLETE WITHOUT INCIDENT. 

207 TERMINATION CLASS CODE THREE BIT CODE IN THE TSSR WHICH INDICATES THE 

44 TCC THE TYPE OF COMMAND TERMINATION. 

of TSBA TAPE SYSTEM BUS ADDRESS REGISTER. 

oi¢ TSOB TAPE SYSTEM DATA BUFFER REGISTER. 

ois TSSR TAPE SYSTEM STATUS REGISTER. 

$18 XSTO EXTENDED STATUS REGISTER 0 
| 
| 
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XST1 
xXST2 
XST3 
XXDP + 





Gl 


EXTENDED STATUS REGISTER 1 
EXTENDED STATUS REGISTER 2 
EXTENDED STATUS REGISTER 3 
XXDP+ IS A “CATCH-ALL” NAME FOR 


POP-11 DIAGNOSTIC PACKAGES 
MULTIMEDIA. 


A_ GROUP OF 
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! 
i 
! 
234 1.0 GENERAL INFORMATION 
est 1.1 PROGRAM ABSTRACT 

238 1.1.1 FUNCTIONAL DESCRIPTION - 
240 THIS PROGRAM CAN BE USED AS A_ BASIC FUNCTION at A A_ DATA 


241 RELIABILITY TEST, A COMPATABILITY TEST, OR TO EXECUTE A SEQUENCE 
242 OF OPERATOR SELECTED COMMANDS. 


246 1.1.2 STRUCTURE OF PROGRAM - 
248 THIS DIAGNOSTIC IS A _ PROGRAM FROM THE STANDPOINT OF _ THE 


249 DIAGNOSTIC. USER, BUT IT USES A CONTROL MODULE RELEASED 
250 INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 


254 1.1.3 MEMORY MAP - 


267 ! DIAGNOSTIC ! 
269 $2000 |---~-.------<- i 


' ' 
! DIAGNOSTIC ! 
274 : SUPERVISOR : 


276 Co ' 


283 FREE MEMORY SPACE FOR THE WRITE/READ BUFFERS IS ALLOCATED BY THE 
284 SUPERVISOR ON REQUEST OR CHOSEN BY THE PROGRAMMER TO RESIDE 
285 BETWEEN THE DIAGNOSTIC AND THE SUPERVISOR. 


Mr 

S&S 

Pw 
SS srnee e n e— e s seen 





a ee ee ee 





Ii 


ASKED AND BOTH ALGORITHMS ARE BYPASSED. 


Ww 
w 
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SEQ 0008 : 
287 
288 
289 
e30 1.1.4 DIAGNOSTIC INFORMATION - 
292 
293 
e3e 1.1.4.1 SCOPE - 
296 THIS DIAGNOSTIC CAN TEST UP TO FOUR (4) UNITS IN A ROUND ROBIN 
297 FASHION. THE FOUR UNITS ARE ASSIGNED LOGICAL UNIT NUMBERS 0 - 3 
238 BY THE DIAGNOSTIC. 
300 THERE ARE 6 TESTS IN THIS PROGRAM: 
302 TEST 1 - BASIC FUNCTIONS. 
303 TEST 2 - DATA RELIABILITY 
304 TEST 3 - WRITE AND READ STREAMING TEST. 
305 TEST 4 - WRITE COMPATABILITY/WRITE UTILITY. 
306 TEST 5 - READ COMPATABILITY/READ UTILITY 
307 TEST 6 - OPERATOR SELECTED SEQUENCE UTILITY. 
309 
310 
311 
312 1.1.4.2 ERROR RECOVERY - 
314 ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK 
315 ERRORS UNLESS RECOVERY IS INHIBITED BY THE OPERATOR. THE READ 
316 F ORWARD/READ REVERSE RETRY LIMIT IS 16 (8 IN THE SAME DIRECTION 
317 AND 8 IN THE OPPCSITE DIRECTION). FOR MORE INFORMATION ON ERROR 
318 RECOVERY PROCEDURES, SEE SECTION 3.0 (ERROR INFORMATION). 
320 
321 
322 1.1.4.3 WRITE ERROR RECOVERY - 
324 THERE ARE 2 DISTINCT, SELECTABLE WRITE-ERROR-RECOVERY ALGORITHMS: 
326 1. MEDIA/OPERATIONAL SELECTIVE ALGORITHM 
327 2. OPERATIONAL ALGORITHM 
329 BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO DISCERN 
330 MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES. 
332 TO SELECT THE SECOND ALGORITHM: 
334 ANSWER 'Y' TO CHANGE SW (L) ? 
335 ANSWER 'N’ TO BAD TAPE SPOT DETECTION (L) Y ? 
337 WHEN ERROR RECOVERY IS INHIBITED, THE LATTER QUESTION IS NOT 
| 
| 
| 
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1.1.4.3.1 MEDIA/OPERATIONAL SELECTIVE WRITE ERROR RECOVERY 
ALGORITHM - 


SCOPE 


THE ALGORITHM DISCERNS MEDIA RELATED WRITE ERRORS FROM 
OPERATIONAL ONES. 


ALGORITHM 


A WRITE RETRY SUBROUTINE IS CALLED BY THE RECOVERABLE ERROR 
SUBROUTINE UPON DETECTION OF A_ RECOVERABLE WRITE ERROR. THE 
WRITE RETRY SUBROUTINE REWRITES THE RECORD IN THE SAME SPOT ON 
TAPE FOUR TIMES. IF ALL 4 REPEATS ARE GOOD, THE RECORD IS 
CONSIDERED RECOVERED AND A RECOVERABLE WRITE ERROR IS LOGGED AT 
THAT RECORD NUMBER. 


IF ANY OF THE 4 REPEATS FAIL, THE BAD RECORD IS ERASED, SUSPECTED 
BAD SPOT AT THAT RECORD NUMBER IS LOGGED, AND THE RECORD = 
RETRIED AGAIN 3 ~~ FURTHER DOWN TAPE. THIS IS DONE UP TO 
TIMES, UP TO REPEATS EACH. IF THE RECORD CANNOT BE WRITTEN 
WITHOUT RECOVERABLE ERRORS AFTER 4 RETRIES, THE RECORD IS ERASED 
AND A BAD SPOT DETECTED ON RETRY FAILURE IS REPORTED. THE 
RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WRITE 
RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIES, UNTIL 
THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN LOGGED. 


TWO HUNDRED FIFTY ? ~ gt it MAXIMUM ARE ALLOWED PER TAPE 
PER PASS. WHEN 250 BAD SPOTS HAVE BEEN LOGGED, THE TAPE IS 
CONSIDERED DEFECTIVE. A BAD TAPE OVERFLOW MESSAGE WILL BE 
PRINTED AND THE UNIT IS REWOUND, THEN DROPPED. 


DURING THE RECOVERY PROCESS, IT IS NECESSARY TO PERFORM SEVERAL 
TAPE POSITION OPERATIONS. IF A POSITION ERROR STATUS IS DETECTED 
DURING THOSE OPERATIONS, THEN THE RECOVERY ATTEMPT IS ABORTED AND 
oy nan bankecs. UNRECOVERABLE ERROR MESSAGE IS PRINTED. THE UNIT 


ay ee | WHICH WERE NOT WRITTEN WITHOUT ERROR WILL BE ERASED. 

THIS IS SO THAT ALL RECORDS LEFT ON TAPE ARE GOOD WRITTEN 
RECORDS. BAD SPOTS ARE ERASED, WITH ERASE GAPS FROM 3 TO 1i2 
INCHES PER RETRY GROUP. 


IF NO BAD SPOTS WERE PREVIOUSLY DETECTED, UP TO 20 FEET OF ERASE 
GAP COULD RESULT WHEN RETRYING TO RECOVER A SINGLE RECORD. THAT 
LONG STRETCH OF BAD TAPE WOULD THEN BE FLAGGED WITH 20 BAD SPOTS 
AT THE SAME RECORD NUMBER. 


BAD SPOTS REPORTS 


a 


SEQ 0009 


! 
ee ee a ee ee 
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IF THE PRINT OF RECOVERABLE ERRORS IS ENABLED, THE BAD SPOTS ON 
TAPE ARE IDENTIFIED AS THEY ARE DETECTED. SINCE THE BAD RECEDE THE 


THE STATISTICAL REPORT A te AT THE END OF TEST 2 OR UPON A 
“PRINT” REQUEST, CONTAINS A SUMMARY OF THE BAD SPOTS LOGGED ON 
THE CURRENT TAPE PASS. IN THAT REPORT, ALL COUNTS ARE CUMULATIVE 
FROM PASS TO PASS, EXCEPT FOR THE NUMBER OF BAD SPOTS: IT 
oa TO A “TAPE PASS” ONLY. FOR THIS PURPOSE, A “TAPE PASS” 
IS WRITE PASS FROM BOT TO EOT, OR FROM BOT TO WHERE THE 
DIAGNOSTIC IS HALTED oy a A EOT.. A PASS IS DEFINED BY 
THE SUPERVISOR AS THROUGH ALL THE TESTS REQUESTED ON ALL 
UNITS SELECTED. THESE PASSES ARE IDENTIFIED AS “PASS” AND “EOP”. 


THE NUMBER OF WRITE RETRIES, CUMULATIVE FROM PASS TO PASS, IS A 
we COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN 


THE NUMBER OF WRITE orient ERRORS EXCLUDES BAD TAPE SPOTS 
AND_ REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST. PER 
TAPE PASS, THE NUMBER OF WRITE RETRIES EQUALS THE SUM OF THE 
NUMBER OF RECOVERABLE WRITE ERRORS AND BAD SPOTS. 


TO CLEAR CUMULATIVE COUNTS, ANSWER ‘Y' TO: CLEAR COUNTERS 1 Y 
?. THE BAD TAPE SPOTS COUNT IS CLEARED WHEN WRITING FROM BOT 


IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD 
sony AH gel, TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT 


SINCE ALL WRITTEN RECORDS ULTIMATELY ARE KNOWN TO BE GOOD, THE 
READ ERRORS CAN BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT 
ys eT Eee, OR CONTAMINANTS ON TAPE AS OPPOSED TO 


THE SAME RECORDS MUST BE WRITTEN FROM TAPE PASS TO TAPE PASS FOR 
THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES. 


—_— -. a ee 


SEQ 0010 
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EXAMPLE OF A TAPE PASS PRINT: 
CZTKIA SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 

T CMD FAILED - UNIT O PASS: 1 RECORD: 6 


PREVIOUS CMD W 
MDPKT TSBA RFC TSSR TCC 
100205 002406 000000 100210 4 


XSTO XST1- xXST2 XST3 
000350 000002 100400 000000 
apa BAD SPOT AFTER 1 RETRY, 2 REPEAT 


ASED! 
SUSPECT BAD SPOT AFTER 1 RETRY, 1 REPEAT 


CZTKIA SFT ERR 00009 ON UNIT 00 TST 002 SUB 000 PC: 012100 
RECOVERABLE ERROR 

WRT CMD FAILED - UNIT 0 PASS: 1 RECORD:10210 
PREVIOUS CMD WAS WRT 

CMDPKT TSBA RFC TSSR_ TCC 

100205 002406 000000 100210 4 

026600 


004000 

XxSTO XST1 xST2 XST3 
000350 000002 100010 000000 
ee ON RETRY @ 1 

DR>PRI 

UNIT 0 PASS: 1  RECORD:10210 
BYTES WRITTEN 0,272,279,691 
BYTES READ REV 0,301,123,654 
BYTES READ REV 0,301,120,381 

WRT ROR 

RECOVERABLE ERRORS 1 0 0 
UNRECOVERABLE ERRORS 0 0 0 

WRITE RETRIES 3 

2 BAD wars THIS TAPE PASS PRECEDING RECORD ¢: 
SPEC COND HARD FATAL COMPARE 

2 0 0 0 


DR> 


SEQ 0011 
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THIS EXAMPLE SHOWS THAT RECORD 6 RECOVERED ON 2ND RETRY GROUP. 
THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP = RECORDS 5 
AND 6. RECORD 10210 RECOVERED ON 1ST RETRY OF GOOD REPEATS. 
THREE WRITE GROUP RETRIES WERE ATTEMPTED, RESULTING IN ONE 
RECOVERABLE WRITE ERROR FROM RECORD 10210 AND TWO BAD SPOTS 
BETWEEN RECORDS 5 AND 6. 


1.1.4.3.2 OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM - 


WHEN THIS ALGORITHM + SELECTED, nt ah WRITE RETRY COMMAND 
ISSUED UP TO 16 TIMES OR UN 


AN ‘ 
THAT COMPOSITE COMMAND DOES NOT DETECT BAD SPOTS ON TAPE. 
THEREFORE NO BAD TAPE SPOTS STATUS IS PRINTED. 


IF A RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS, 
RETRY LIMIT EXCEEDED ERROR IS FLAGGED AND THE UNIT IS DROPPED. 


1.1.4.4 EARLY WARNING WRITE ERRORS - 


bal MARKERS. E 
MADE TO WRITE DATA AT THE END OF TRACK, A WRITE ERROR STATUS 
(TCC4) IS RETURNED WITH THE EARLY WARNING (EW) BIT SET. 


WHEN A WRITE ERROR OCCURS AND THE EARLY WARNING BIT IS SET IN 

XSTAT1, THE ERROR IS. RETRIED IF ERROR RECOVERY IS ENABLED. THE 

ONLY METHOD OF RETRY USED FOR EARLY WARNING WRITE ERRORS IS 10 

SET THE RETRY MODIFIER ON THE ORIGINAL COMMAND AND TO REISSUE IT. 

atte WARNING WRITE ERRORS ARE NOT COUNTED IN ANY 
L 


1.1.4.5 DIAGNOSTIC TIMING ADJUSTMENT - 


A NUMBER OF SUPERVISOR TIMING DELAYS MACROS, KNOWN AS WATCH DOG 
DELAYS, ARE CALLED BY THE DIAGNOSTIC 10 WAIT FOR VARIOUS COMMANDS 
TO COMPLETE. THESE DELAYS ARE NOT cat ERATED AND SIMPLY EXPAND 
INTO INLINE NESTED LOOPS. THE COUNT FOR THE guTER LOOP COMES 
FROM THE VARIABLE ARGUMENT SUPPLIED BY THE DELAY CALLS. THE 
COUNT FOR THE INNER LOOP COMES FROM THE FIXED “HEADER” ELEMENT 
“LSDLY”. AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE 
DELAYS WILL VARY IN LENGTH WITH MEMORY SPEED. 


SEQ 0012 
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IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE UNIT 
ARE EVIDENT, THE TIMINGS OF THE DIAGNOSTIC MAY BE ADJUSTED. THIS 
IS ACCOMPLISHED BY PATCHING THE FIXED DELAY ELEMENT “"L$OLY”. 


1.2 SYSTEM REQUIREMENTS 

1.2.1 HARDWARE REQUIREMENTS - 

PDP-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA36,LA120,VT100,ETC. ) 
PROGRAM LOAD DEVICE 

TK25 DRIVE AND CONTROLLER 


eo eo sod ©& 


1.2.2 SOFTWARE REQUIREMENTS - 
0 DIAGNOSTI2 SUPERVISOR 


1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ USERS MANUAL MD-11-CHQUS 

PDP-11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION 
POP-11 DIAGNOSTIC SUPERVISOR PROGRAMMER'S GUIDE 

TK25 PROGRAMMING SPECIFICATION 

TK25 COMMAND PACKET SPECIFICATION 


oe @o& & © @& 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


ORDER OF HOST CPU DIAGNOSTIC USAGE: 
1) FRONT END FUNCTIONAL PROGRAM - ALL TESTS. 
2) DATA RELIABILITY PROGRAM: 


SEQ 0013 
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A) BASIC FUNCTION TEST. 
B) DATA RELIABILITY TEST. 


1.5 ASSUMPTIONS 


THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO 
BE WORKING PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE 
PROCESSOR, MEMORY, ETC., DOES NOT FUNCTION PROPERLY. 


1.6 DIAGNOSTIC HISTORY 
REVISION A - 15-MAR-84 - ORIGINAL RELEASE 


2.0 OPERATING INSTRUCTIONS 


FOR OPERATING  Stemremveaints PLEASE SEE CHAPTER 5S OF XXDP+ 
OPERATOR'S MANUAL 


2.1 HARDWARE PARAMETERS 


ON A "N” RESPONSE TO “CHANGE HW?", THE DIAGNOSTIC SHALL RUN 
_— THAT THERE IS ONE UNIT AT TSSR = 172522 WITH A VECTOR = 


ON A "Y" RESPONSE TO “CHANGE HW?" QUESTION, THEN THE FOLLOWING 
on ef a WILL BE ASKED ON A START COMMAND. THE VALUE LOCATED TO 
THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT WILL BE 
TAKEN ON A CARRIAGE RETURN RESPONCE. 


TSSR ADDRESS (172522) ? 
VECTOR (224) ? 


THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED BEFORE RUNNING 
THE TESTS BY SETTING THE FLAG “ADR” ON A STA, RES OR CON COMMAND. 

THE SO CALLED “AUTO DROP” CODE SHALL THEN BE EXECUTED AFTER THE 
INIT CODE AND BEFORE THE “mem sep TESTS ARE RUN. THAT CODE FIRST 
TESTS THE ADDRESS OF THE TSSR(S). IF THERE IS NO RESPONSE, IT 
DROPS THE UNIT(S) IMMEDIATELY WITH THE FOLLOWING MESSAGE: 


BUS TRAP AT XXXXXX ( XXXXXX = TSSR AD ) 
INTERFACE BAD OR NOT SET TO ABOVE AD. 


rn ee 


ee 
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SEQ 0015 
657 
8 
660 ON A RESPONSE FROM THE INTERFACE, THE UNITS THAT ARE NOT READY OR 
661 NOT ON-LINE ARE OROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL 
ose THEN BE RUN ON THE RESPONDING UNITS. 
664 IF THE a FLAG IS NOT SET, THE READY AND OFF-LINE STATUS OF 
665 THE UNITS ARE CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 
666 TO WARN THE OPERATOR OF UNITS THAT ARE NOT READY OR OFF-LINE. 
+4 THESE UNITS SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME. 
669 
670 
evs 2.2 SOFTWARE PARAMETERS 
673 THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A_ START, 
674 RESTART, OR CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE 
ore PROGRAM BEHAVES. 
244 CLEAR COUNTERS (L) Y ? 
Be RESET RANDOM VARIABLES (L) N ? 
oss HALT AFTER EACH CMD (L) N ? 
144 PRINT SOFT ERRORS (L) N ? 
4 INHIBIT RECOVERY (L) N ? 
244 BAD TAPE SPOT DETECT (L) Y ? 
+44 DISABLE INTERRUPTS (L) N ? 
443 INHIBIT RFC ERROR REPORTS (L) N ? 
4 CONTROLLER RAM DUMP (L) N ? 
$4 ENABLE EARLY WARNING MESSAGES (L) N ? 
697 CHANGE CMD SEQUENCE (L) N ? 
698 
699 
700 
701 
Ly 2.2.1 CLEAR COUNTERS - ; 
704 IF YOU ANSWER YES TO THIS QUESTION, ALL COUNTERS (ERROR COUNTS, 
i — CONDITION COUNT, BYTES TRANSFERRED, ETC.) WILL BE SET TO 


- a EEE, LL 


Ee 
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2.2.2 RESET RANDOM VARIABLES - 


IF YOU REQUEST THAT THE RANDOM VARIABLES BE RESET, THESE 
VARIABLES WILL TAKE ON THEIR DEFAULT VALUES. 


2.2.3 PRINT SOFT ERRORS - 


THIS QUESTION WILL ALLOW YOU TO ENABLE bo DISABLE THE PRINTING OF 
user of © ERROR REPORTS. IF YOU ARE ONLY INTERESTED IN THE 
SUMMARY OF ERRORS AND NOT THE INDIVIDUAL ERRORS, YOU SHOULD 
ANSWER (N) TO THIS QUESTION. 


2.2.4 INHIBIT RECOVERY - 


IF YOU SO CHOOSE, YOU CAN INHIBIT ALL ERROR RECOVERY WITH THIS 
QUESTION. IF YOU ANSWER (CY) TO THIS QUESTION, THE FOLLOWING 
QUESTION WILL NOT BE ASKED 


2.2.5 BAD TAPE SPOT DETECTION - 


IF YOU ANSWER (CY) TO THIS QUESTION, THE BAD TAPE SPOT DETECTION 
RETRY ALGORITHM WILL BE USED. OTHERWISE, THE OPERATIONAL WRITE 
ERROR RECOVERY ALGORITHM WILL BE USED FOR ERROR RECOVERY. THESE 
ALGORITHMS ARE DESCRIBED IN SECTIONS ABOVE. THIS QUESTION WILL 
NOT BE ASKED IF ERROR RECOVERY IS INHIBITED. 


2.2.6 DISABLE INTERRUPTS - 


i — DISABLE OR ENABLE CONTROLLER INTERRUPTS WITH THIS 


2.2.7 INHIBIT RFC ERROR REPORTS - THIS QUESTION ALLOWS YOU TO 
INHIBIT THE RFC (RESIDUAL FRAME COUNT) ERROR REPORTS. THESE 
ERROR REPORTS INDICATE THAT N_BYTES/RECORDS/FILES WERE NOT 
PROCESSED AT THE END OF THE COMMAND. 


SEQ 0016 
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SEQ 0017 |! 
757 
j 758 
759 

760 2.2.8 CONTROLLER RAM DUMP - 

762 THIS QUESTION ALLOWS YOU TO CHOOSE WHETHER A DUMP OF THE 

703 CONTOLLER’S RAM WILL OCCUR WITH EACH ERROR. 

765 

766 

767 2.2.9 ENABLE EARLY WARNING MESSAGES - 

769 THIS QUESTION ALLOWS YOU TO ENABLE OR DISABLE THE PRINTING OF 

770 MESSAGE EACH TIME A WRITE ERROR OCCURS AND THE EARLY WARNING CEM) 

| BIT IS SET IN EXTENDED STATUS REGISTER 1. 

773 

774 

ne 2.2.10 CHANGE CMD SEQUENCE - 

777 THIS QUESTION WILL ALLOW YOU TO CHANGE THE COMMAND SEQUENCE USED 

778 IN TEST 6. 

779 

781 SELECTED SEQUENCE IS TO BE EXECUTED. IF THIS QUESTION IS 

782 ANSWERED (N), NO MORE QUESTIONS WILL BE ASKED. IF THIS QUESTION 

783 IS ANSWERED (CY), THE FOLLOWING QUESTIONS MUST BE ANSWERED OR 


780 NOTE: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN OPERATOR 
784 DEFAULTED WITH A CR>: 
! 


— ee ee (eee ee owe 





829 CONTROL Z (Z) CAN BE ENTERED TO TERMINATE SOFTWARE DIALOGUE. 
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| SEQ 0018 
| 786 
787 
| 8 
| 790 CHARACTERISTICS CODE (0) 40 ? (0,20,40,200) (OCTAL) 
791 CMD/2 (D) 13 ? (1-27) (DECIMAL) 
792 BRF COUNT (D) 1 ? (1-4K) (DECIMAL) 
793 # OF aay et (0) 1? (1-32K) (DECIMAL) 
794 PATTERN (D) 7 ? (0-8) (DECIMAL ) 
795 CMD/3 (D) 4 ? (1-27) (DECIMAL) i 
796 BRF COUNT (D) 409 €1-4K) (DECIMAL) i 
797 # OF OPERATIONS D) 1719 ? €1-32K) (DECIMAL) 
798 PATTERN (D) 7 ? (0-8) (DECIMAL ) 
799 as (D) 7 ? (1-27) (DECIMAL) 
800 BRF COUNT (D) 4096 (1-4K) (DECIMAL) 
801 # OF OPERATIONS (D) *ia719 ? €1-32K) (DECIMAL) 
802 PATTERN (D) 7 ? (0-8) (DECIMAL ) 
803 CMD/S (D) 2 ? (1-27) (DECIMAL) 
-y COUNT (D) 4096 €1-4K) (DECIMAL) 
805 # OF OPERATIONS (D) 1719 ? (1-32K) (DECIMAL) 
806 PATTERN (D0) 7 ? (0-8) (DECIMAL ) 
807 CMD/6 (D) 13. ? (1-27) (DECIMAL) 
808 BRF COUNT (D) 1 ? (1-4K) (DECIMAL) 
809 # OF OPERATIONS (D) 1 ? (1-32K) (DECIMAL) 
810 PATTERN (D) 7 ? (0-8) (DECIMAL ) 
811 CMD/7 (D) 27 (1-27) (DECIMAL) 
812 BRF COUNT (D) 4 €1-4K) (DECIMAL) 
813 # OF OPERATIONS. D) 1719 ? €1-32K) (DECIMAL) 
814 - PATTERN (D) 7 (0-8) (DECIMAL ) 
815 CMD/8 (D) 27 (1-27) (DECIMAL) 
816 BRF COUNT (D) 4096 (1-4K) (DECIMAL) 
817 ¢ OF mr isit (D) 1719 ? (1-32K) (DECIMAL) 
oi8 PATTERN (D) 7 (0-8) (DECIMAL ) 
820 
821 NOTE: THE PROGRAM AUTOMATICALLY INSERTS A. CHARACTERISTICS CODE 
822 40 (SEE BELOW) AS THE FIRST COMMAND IN THE SEQUENCE TABLE. IF A 
823 DIFFERENT CHARACTERISTIC IS DESIRED, THE OPERATOR SHOULD ENTER 
acs THAT CHARACTERISTIC CODE. 
8 » 
826 A TOTAL OF 7 COMMANDS MAY BE ENTERED IN ADDITION TO THE SET 
827 Sy ah oe 2 pte IF THE OPERATOR WISHES TO USE LESS THAN 
828 7 COMMANDS, AN END COMMAND (27) MUST BE ENTERED AND THEN A 
| 
} 


_ ee 
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SEQ 0019 


2.2.11 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. - 
836 CODE COMMAND DESCRIPTION 


838 1 = ORI DRIVE INITIATE. 

839 2 = ROF READ FORWARD. 

840 3 = ROR READ REVERSE. 

841 4 = WRT. WRITE. 

842 5 = WTV WRITE/VERIFY. (WRITE N RECORDS; SPACE REVERSE N RECORDS; 
843 READ FORWARD AND CHECK N RECORDS. ) 

844 6 =< SRF SPACE RECORDS FORWARD. 

845 7 = SRR SPACE RECORDS REVERSE. 

846 8 = RNR READ NEXT REVERSE, IE. SPACE FWD, READ REV. 

847 9 = RNF READ NEXT FORWARD, IE. READ FWD, SPACE REV. 

848 10 = RPF READ PREVIOUS FWD, IE. SPACE REV, READ FWD. 

849 11 = RPR ae PREVIOUS REV, IE. READ REV, SPACE FWD. 

850 12 = WRR WRITE RETRY. ‘ 

851 13 = RWD REWIND. 

852 14 = MBR MESSAGE te 9 et 

853 15 = WIM WRITE TAPE M 

854 16 = WTR WRITE TAPE MARK “RETRY. 

855 ive SF SPACE FILES FORWARD. 

856 18 = SFR SPACE FILES REVERSE 

857 19 = GES GET EXTENDED STATUS. 

858 20 = ERS ERASE 3 INCHES OF TAPE. 

859 21 = UNL UNLOAD. 

860 22 = CLN CLEAN TAPE 

861 23 = SCH SET DEVICE CHARACTERISTIC. WHERE BRF=200, 40, 20, 
862 200 = ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL Eon) 
863 40 = ENABLE ATTENTION INTERRUPTS. 

864 20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

865 SEE TK25 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 

866 24 = NOT USED 

867 25 = JMP JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE TABLE, 
868 WHERE N IS DEFINED IN THE BRF FIELD. THE NUMBER OF 
869 JUMPS IS ENTERED IN THE NUMBER OF OPERATIONS FIELD. 

870 26 = OLY DELAY "N" MILISECONDS WHERE N IS DEFINED IN THE NUMBER 
871 OF OPERATIONS. THIS DELAY IS USED BETWEEN EACH 


872 EXECUTABLE COMMAND. 
873 27 = END END OF COMMAND SEQUENCE. 
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j SEQ 0020 | 
875 
i 
878 2.2.12 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE - 
880 PATTERN # DESCRIPTION. ! 
882 0 INCREMENTING PATTERN. 0 - 377. 
883 1 + ALL 1'S PATTERN. 
884 2 ALL_0'S PATTERN. 
885 3 1 BIT WALKING FROM R TO L IN A FIELD OF O'S. | 
886 4 © BIT WALKING FROM R TO L IF A FIELD OF 1'S. 
887 5 ALTERNATING 1 AND 0 BITS WITH ALTERNATE BYTES COMPLIMENTED. (125/25 
888 é ALTERNATING BYTES OF 000 AND 377. 
889 7 RANDOM DATA PATTERN. 
890 8 NO PATTERN GENERATION. 
891 
892 
893 
894 2.3 EXAMPLES OF SOFTWARE DIALOGUE 
896 2.3.1 BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR 
897 REPORTING ENABLED - 
899 A) RECEIVE PROMPT (DR>) 
900 B) ENTER STA/TES:1-2<CR> , 
901 C) ANSWER HARDWARE QUESTIONS. , 
902 D) PROCEED WITH THE FOLLOWING DIALOGUE: 
904 | CHANGE SW (L) ? Y<CR> 
905 CLEAR COUNTERS (L) N Y<CR> 
906 RESET RANDOM VARIABLES (L) N ? N<CR> 
907 HALT AFTER EACH CMD (L) N ? N<CR> 
909 INHIBIT RECOVERY (L) N ? N<CR> 
910 BAD TAPE SPOT DETECT (1) ¥ 2 Y<CR> 
911 DISABLE INTERRUPTS (L) N N<CR> 
912 INHIBIT RFC ERROR REPORT (L) N ? N<CR> 
913 CONTROLLER RAM DUMP (L) N ? N<CR> 
914 ENABLE EARLY WARNING MESSAGES (L) N? N«CR> 


915 CHANGE CMD SEQUENCE (L) N ? N<CR> 
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! SEQ 0021 |! 
917 
| 3B 
920 2.3.2 TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. - 
922 A) RECEIVE PROMPT (DR>) 
923 B) ENTER STA/TES:1/FLA:LOE: IER: ISR: IDU<CR> 
924 C) ANSWER HARDWARE QUESTIONS. | 
928 D) PROCEED WITH THE FOLLOWING DIALOGUE: 
927 CHANGE SW (L) ? Y<CR> | 
928 CLEAR COUNTERS (L) N ? Y<CR> 
929 RESET RANDOM VARIABLES (L) N ? N<CR> 
930 HALT AFTER EACH CMD (L) N ? N<CR> 
931 PRINT SOFT ERRORS (L) N i, N<CR> 
932 INHIBIT RECOVERY (L) N ? N<CR> 
933 BAD TAPE SPOT DETECT (Ld y ? N<CR> 
934 DISABLE INTERRUPTS (L) N N<CR> 
935 INHIBIT RFC ERROR REPORT éL) N? Y<CR> 
936 CONTROLLER RAM DUMP (L) N ? N<CR> 
937 ENABLE EARLY WARNING MESSAGES (L) N? N«CR> 
938 CHANGE CMD SEQUENCE (L) N ? N<CR> 
st 
o4e 2.3.3 TO SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY - 
944 A) RECEIVE PROMPT (DR>) 
945 B) ENTER STA/TES:5/FLA: IER: ISR: IDU/EOP: 1000<CR> 
946 C) ANSWER HARDWARE QUESTIONS. 
947 D) PROCEED WITH THE FOLLOWING DIALOGUE: 
949 CHANGE SW (L) ? Y<CR> 
950 CLEAR COUNTERS (L) N ? Y<CR> 
951 RESET RANDOM VARIABLES cL) " ? N<CR> 
952 HALT AFTER EACH CMD (L) N N<CR> 
953 PRINT SOFT ERRORS (L) N A N<CR> 
954 INHIBIT RECOVERY (L) N ? N<CR> 
955 BAD TAPE SPOT DETECT (L) Y ? N<CR> 
956 DISABLE INTERRUPTS (L) N ? Y<CR> 
957 INHIBIT RFC ERROR REPORT web? N? Y<CR> 
958 CONTROLLER RAM DUMP (L) N ? N<CR> 
959 ENABLE EARLY WARWING MESSAGES (L) N? N«<CR> 
960 CHANGE CMD SEQUENCE (L) N ? Y<CR> 
961 CHARACTERISTICS CODE (0) 40 ? 40<CR> 
962 CMD/2 (0) 5? 13<CR> (REWIND) (COULD BE ANY COMMA 
963 BRF COUNT (D) 4 1<CR> 
964 # OF OPERATIONS. 0B) 10 ? 1<CR> 
965 PATTERN (D) 7 ? 1<CR> 
966 CMD/3 (D) 5 ? 4<CR> (WRITE) (COULD BE ANY COMMAN 
967 BRF (D) 4096 ? 1000<CR> 
968 # OF OPERATIONS (DP) 10 ? 10000<CR> 
969 PATTERN (0)? 1<CR> 
970 CMD/4 (D) 5 27<CR> (END) (COULD BE ANY COMMAN 


| 
| 
971 BRF (0) 4096.2 “12> | 
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2.4 EXECUTION TIMES 
2.4.1 SYSTEM CONFIGURATION - 
PDP-11/23+ PROCESSOR 


0 


0 
0 
0 
0 


128KW 


MEMORY 


LA34 TERMINAL 
1 - TK2S DRIVE 
1 - TK25 Q-BUS CONTROLLER 


2.4.2 TEST EXECUTION TIMES - 


TEST i - sry FUNCTIONS - 0.5 MINUTES PER oat 
TEST 2 - DATA RELIABILITY - 83 MINUTES PER P 


ASS. 
- WRITE/READ STREAMING TEST - 53 MINUTES PER PASS. 


- WRITE COMPATABILITY - 34 MINUTES PER PASS. 
23 MINUTES PER PASS. 


READ COMPATABILITY - 


. OPERATOR SELECTED SEQUENCE - 48 MINUTES (FOR DEFAULT SEQUENCE). 


NOTE 


ALL EXECUTION TIMES ARE SHOWN FOR 
ONE UNIT OPERATION USING A 600 FOOT 
CARTRIDGE AND THE SYSTEM 

CONFIGURATION ABOVE. FOR SYSTEM 
CONFIGURATIONS OTHER THAN AN 11/23+ 
WITH 128KW OF MEMORY AND A SINGLE 
bans 2 SUBSYSTEM, TEST DURATIONS WILL 


3.0 ERROR INFORMATION 


ee CT ee ee ee 


a ee 
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3.1 ERROR REPORTING 


ALL ERROR REPORTS EXCEPT FOR ERRORS 1 AND 17 INCLUDE A DUMP OF 
THE FOLLOWING INFORMATION: 


ERROR #, TEST #, SUBTEST #, PROGRAM COUNTER, UNIT @, 
COMMAND, PREVIOUS COMMAND, a COUNT, NUMBER OF 


EC oC THE COMMAND 
PACKET, TSSR, TCC, TSBA, RFC, AND THE EXTENDED STATUS 
REGISTERS. 


STANDARD ERROR REPORT FORMAT: 
CZTKIA SFT ERR XXXXX TST XXX SUB XXX PC: XXXXXX 


CASCII ERROR MESSAGE ) 
XXX CMD FAILED - UNIT X PASS: XXXXX RECORD: XXXXX 


PREVIOUS CMD WAS XXX * RECORD READ: XXXXX * 
CMDPKT TSBA RFC TSSR TCC 

XXXXXX XXXXXX XXXXXX XXXXXX xX 

XXXXXX 

XXXXXX 

XXXXXX 

XSTO XST1 xST2 XST3 


XXXXXX XXXXXX XXXXXX XXXXXX 
* CAUTION « 


C 
IS NOT NECESSARELY LOST. ERRORS IN READING THAT REC 
HAVE CAUSED THE RECORD COUNT TO BE ERRONEOUSLY READ FROM TAPE. 


FOR EXAMPLE, IF IN TEST 2 THE DIAGNOSTIC IS RESTARTED OR 
on NUE, THE R 

TO DETERMINE ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS 
HALTED BEFORE RESTARTING OR CONTINUING. IT IS SUGGESTED THAT 


A 
“PRINT” BE REQUESTED WHEN HALTING THE DIAGNOSTIC TO GET A PRINT 
OF THE RECORD COUNT WHEN HALTED. 


_—_ — ee 


SEQ 0023 
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EXAMPLE OF AN ERROR REPORT: 


CZTKIA SFT ERR 00009 TST 002 SUB 000 PC: 010606 
art tee okt ERROR 


T CMD FAILED - a 3 2 PASS: 2 RECORD: 254 


PREVIOUS CMD WAS 
CMDPKT TSBA RFC TSSR TCC 
se 4 002324 000000 100210 4 


XSTO xST1 XST2 XST3 
000350 000002 100004 000000 


3.1.1 ERROR 1 - COMMAND PACKET ADDRESS NOT ON A MODULO 4 
BOUNDRY: - 


IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
cone Pit. SYSTEM FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO 


3.1.2 ERROR 2 - TK25 NOT READY: - 


BEFORE ANY COMMAND IS ISSUED TO THE TK25, THE SUBSYSTEM Hy BIT 
IN THE TSSR4 IS CHECKED. IF THE we IS NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
aptzen th tea BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 


3.1.3 ERROR 3 - NO RESPONSE ERROR: - 


ONCE THE TSDB zs LOADED, THE TK25 HAS ONE MILLISECOND TO RESPOND 
OR THE PROGRAM REPORTS A “NO RESPONSE” ERROR. THIS IS A FATAL 
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST 
SEQUENCE UNLESS THE IDU OPTION IS USED. 


3.1.4 ERROR 4 - NO INTERRUPT ERROR: - 


COMMAND WAS ISSUED AND NO INTERRUPT WAS RECEIVED. THE PROGRAM 
REPORTS THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR 
RR te WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 


SEQ 0024 
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3.1.5 SPECIAL CONDITION ERRORS: - 


IF, DURING es AN INCIDENT OCCURS FORCING THE TSSR SPECIAL 
CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 8 ERROR 
HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS CODE. 


THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET: 


3.1.5.1 ERROR S - TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 
CONDITION - 


THE ERROR IS rt pea A HARD ERROR IS LOGGED AND THE PROGRAM 
PROCEEDS NORMALLY 


3.1.5.2 ERROR 6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 


THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
THE 1DU OPTION IS USED. 


3.1.5.3 ERROR 7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT - 


A__STATUS CONDITION HAS BEEN ENCOUNTERED THAT .-* HAVE 
SIGNIFICANCE 1O THE PROGRAM. BITS OF INTEREST INCLUDE T RLS, 
LET, RLL, EOT. ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED: 
IF THE CONDITION IS UNEXPECTED, THE ERROR IS REPORTED AND A HARD 
ERRCR IS LOGGED. 


3.1.5.4 ERROR 8 - TERMINATION CLASS CODE 3, FUNCTION REJECT - 


THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS OF eee 
INCLUDE RMR, VCK, BOT, ILC, WLE, ILA, AND NBA. THIS IS A 
FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST 
CYCLE UNLESS THE IDU OPTION IS USED. 


SEQ 0025 


PARAMETER CODING 


- 
~ 
o 


Oe hh he pee 
be he 
Jan 
won 


| oul aul aul aeeell el 
SANES 





— --- eee eee 
a ————eEeEeEeEE——————————— 


Ne 


MACRO M1200 28-MAR-85 15:28 PAGE 28 


3.1.5.5 ERROR 9 - TERMINATION CLASS CODE 4, RECOVERABLE ERROR - 


TAPE POSITION IS ONE RECORD BEYOND WHAT ITS ota te WAS WHEN THE 
FUNCTION WAS INITIATED. ike te PROCEDURE IS TO LOG THE ERROR 
AND ISSUE THE APPROPRIATE RETRY COMMAND. an THE RETRY LIMIT IS 

REACHED BEFORE THE ERROR IS RECOVERED, A “RETRY LIMIT EXCEEDED” 

IS REPORTED AS DESCRIBED IN ERROR 14 BELOW. 


3.1.5.6 ERROR 10 - TERMINATION CLASS CODE 5, RECOVERABLE ERROR - 


fAPE POSITION WAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
ERR SSUE_ THE ORIGINAL Aer IF THE RETRY LIMIT IS 
REACHED BEFORE THE ERROR IS RECOVERED, A "RETRY LIMIT EXCEEDED” 
IS REPORTED AS DESCRIBED IN ERROR 14 BELOW. 


3.1.5.7 ERROR 11 - TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 


TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 
IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 
SEQUENCE NUMBERS. THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
rey BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION Is 


3.1.5.8 Soon 12 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 


THE SUBSYSTEM Wtchete Tk OF PROPERLY eetitokee COMMANDS OR AT 


ABLE. O THE 
ISTER FOR ADDITIONAL 
INFORMATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL Se 
DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


3.1.6 ERROR 13 - RFC NON-ZERO ERROR: - 


IF, AFTER CRS CUTTON. THE RESIDUAL FRAME COUNT IS _ NON- nny THE 
ERROR IS REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 
oeritee . NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS IS 


— — — ——_- ee ee 


SEQ 0026 
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3.1.7 ERROR 14 - RETRY LIMIT EXCEEDED: - 


ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
oF BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS 


ON A READ COMMAND THIS — IS LOGGED AS A HARD ERROR AND THE 
PROGRAM PROCEEDS NORMALLY 


3.1.8 ERROR 15 - TOO MANY INTERRUPTS: - 


IF MORE THAN ONE . wr OCCURS PER COMMAND, THIS ERROR IS 
REPORTED. THIS IS ATAL DEVICE ERROR AND THE DEVICE WILL BE 
DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


3.1.9 ERROR 16 - CAPSTAN RUNAWAY: - 


CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


3.1.10 ERROR 17 - DATA COMPARE ERROR: - 


IF A ore VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND, 
THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR 
OCCURRED ON. ONLY THE FIRST 10 BYTES IN ERROR PER “a. ARE 
PRINTED. THE TOTAL NUMBER OF BYTES IN ERROR PER RECORD IS ALSO 
at by A HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS 


3.2 ERROR HALTS 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 
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SEQ 0028 
| = 1267 
i 1268 
} 1269 
1270 4.0 PERFORMANCE REPORT 
1271 
1272 
1273 UNIT X PASS: XXXXX RECORD: XXXXX 
1274 BYTES WRITTEN XXX,XXX,XXX, XXX 
1275 BYTES READ REV XXX,XXX, XXX, XXX 
1276 BYTES READ FWD XXX,XXX, XXX, XXX 
1277 WRT ROR ROF 
1278 RECOVERABLE ERRORS XXXXX XXXXX  XxXXxXX 
1279 UNRECOVERABLE ERRORS XXXXX XXXXX XXXXX 
1281 SPEC COND HARD FATAL COMPARE 
1282 XXXXX = XXXXKX = XXXKXKX —- XXKKX 
1283 
1284 
1285 
1286 
io. 5.0 TEST SUMMARIES 
pod 5.1 TEST 1 - BASIC FUNCTIONS. 
ites EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TK25 FUNCTIONS. 
1293 SUBTEST 4 - SET CHAR, DRIVE INIT, GET STATUS. 
1294 SET CHARACTERISTIC 200. CENABLES SKIP TAPE MARKS STOP) 
1295 « DRIVE INITIATE. 
34 + et CHARACTERISTIC 20. CENABLES MESSAGE BUFF RELEASE INTERRUPTS) 
34 + SET CHARACTERISTIC 40. (ENABLES ATTENTION INTERRUPTS) 
300 SUBTEST 2 - REWIND. 
1301 « REWIND. 
1308 + REWIND AT BOT. 
1304 SUBTEST 3. - WRITE/VERIFY. 
1305 ¢ WRITE/VERIFY PATTERN 1. 
1306 + WRITE/VERIFY PATTERN 2. 
1307 « WRITE/VERIFY PATTERN 3. 
1308 « WRITE/VERIFY PATTERN 4. 
1309 « WRITE/VERIFY PATTERN 5S. 
1310 + WRITE/VERIFY PATTERN 6. 
tes + WRITE/VERIFY PATTERN O. 
1313 SUBTEST 4 - WRITE go fl a ERASE. 
1314 + WRITE TAPE MARK. 
1315 + WRITE 10 RECORDS 
1316 + ERASE 10 
1317 + WRITE TAPE MARK, 
1318 + WRITE TAPE MARK RETRY. 
1319 
1320 


SUBTEST 5 - SPACE FILES. 
+ SPACE 2 FILES REVERSE. 


‘ 
ne | 
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SEQ 0029 | 

1323 

1324 

1325 

1326 + SPACE 2 FILES FORWARD. 

1327 + SPACE 2 FILES REVERSE. 

1328 + SPACE 2 FILES FORWARD. 
! 

1330 SUBTEST 6 - SPACE RECORDS. 

1331 + REWIND. 

1332 + SPACE 7 RECORDS FORWARD. 

1333 + SPACE 7 RECORDS REVERSE. 

1334 + SPACE 7 RECORDS FORWARD. 

1335 + SPACE 7 RECORDS REVERSE. | 

1337 SUBTEST 7 - WRITE RETRY. | 

1338 + REWIND. 

1339 + WRITE DATA. 

1340 + WRITE RETRY. 

1342 SUBTEST 8 - READ REV RETRY. 

1343 + READ REVERSE. 

1344 + READ NEXT REVERSE. 

1345 + READ NEXT FORWARD. 

1347 SUBTEST 9 - READ FWD RETRY. 

1348 + READ FORWARD. 

1349 + READ PREVIOUS FORWARD. 

1350 + READ PREVIOUS REVERSE. 

1352 SUBTEST 10 - CLEAN. 

1353 * CLEAN 

1354 + REWIND. 

1356 SUBTEST 11 - WRITE/VERIFY SWAPPED DATA BYTES. 

1357 + WRITE/VERIFY EVEN LENGTH (RECORD 1). 

1358 + WRITE/VERIFY ODD AbENGTH (RECORD 2). 

1359 + SET DATA BYTE SWA 

1360 + WRITE/VERIFY EVEN. LENGTH (RECORD 3). 

1361 + WRITE/VERIFY ODD LENGTH (RECORD 4). 

1362 + CLEAR DATA BYTE SWAP 

1364 SUBTEST 12 - READ SWAPPED | DATA BYTES. 

1365 + READ REV RECORD 4 

1366 + READ REV RECOR 

1367 + SET DATA BYTE SWAP. 

1368 + READ REV RECORD 2. 

1369 + READ REV RECORD 1 

1370 + READ FWD RECORD 1 

1371 + READ FWD REC 

1372 + CLEAR DATA BYTE SWAP 

1373 + READ FWD REC 

1374 + READ FWD RECORD 4. | 
| 


one we ae ame ae 
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5.2 TEST 2 - DATA RELIABILITY. 


1. 


THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 

SET CHARACTERISTIC 40 

REWIND 

WRITE 31 RECORDS OF RANDOM LENGTH AND DATA 

WRITE, wm RECORD REVERSE, AND READ COMMANDS ARE 
SELECTED AT RANDOM AND ARE EXECUTED A RANDOM NUMBER OF 

TIMES WITH RANDOM LENGTHS AND RANDOM PATTERN UNTIL END 
OF TAPE IS REACHED. 


T THE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
A PERFORMANCE REPORT IS PRINTED. 


NOTE 


IF _A_RESTART COMMAND IS USED TO 
INITIATE TEST 1, THE INITIAL REWIND 
COMMAND IS NOT ISSUED. 


5.3 TEST 3 - WRITE AND READ STREAMING TEST. 


EEREEEERE EERE EERE EEE E ER ERE ER ER EERE EERE EEE EE EEE EE EEE EEE EEE EE 
*#** NOTE: THE TAPE LENGTH MUST BE 600 FEET FOR THIS TEST *#« 
EEERERERERE EEE EE ERE EE EEE ERE E EAE E EEE EERE EE EERE EEE EEE EERE EES 


1. REWINDS ALL UNITS, THEN ON EACH UNIT: 
shaeetehtedhteteteedbedbdbbnb hae b rai tetititi titi titi itt titi t ttt ttt t tt 
2. WRITE PATTERN S FOR 11719 - 4096 BYTE RECORDS. 

3. SPACE REVERSE FOR 11719 RECORDS. 

4. READ FORWARD FOR 11719 RECORDS. 


hehbhtbbbbbibbbb hi bh ppp pprppititriti tii iit iiiitiiitti titi ttt tt 





-—- - ee ee ee 





CE A ee Et G 


ra 


1475 REWINDS AND READS ENTIRE TAPE IN THE FORWARD DIRECTION, REWIND. 
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SEQ 0031 : 

1429 

1430 

1431 

1432 NOTE 

1433 

1434 WRITE AND READ ITERATIONS ARE ' 

1435 INTERRUPTED SO THAT THE TAPE DOES | 

1436 NOT CONTINUOUSLY STREAM. THREE 

1437 RECORDS ARE ALLOWED TO STREAM 

1438 BEFORE THE UNIT IS INTERRUPTED FOR 

1439 BOTH ITE AND READ TIONS 

1440 THE INTERRUPTION SCHEME IS SET UP 

1441 ‘ TO PERMIT STREAMING OPERATIONS 75s 

1442 OF THE TIME THIS TEST IS _ IN 

ieai EXECUTION. 

1445 THIS te > EXECUTES IN A SINGLE 

1446 SERVER MANNER - ONLY ONE UNIT AT A 

1447 TIME IS fe a” OPERATION FOR A 

1448 FOUR (4) T CONFIGURATION. THIS 

1449 MEANS THAT THE DUTY CYCLE OF THE 

1450 SYSTEM WILL BE 258, BUT THE 

1451 TREAMING OPERTA 

ieee SPECIFIC war UNDER TEST WILL BE 

1454 CONFIGURATION THE SYSTEM DUTY CYCLE 

1455 BE 33.38, 

1456 CONFIGURATION WILL BE 5 T 

1457 STREAMING DUTY CYCLE FOR’ ANY 

1458 PARTICULAR UNIT UNDER TEST WILL 

1459 ALWAYS BE 75% REGARDLESS OF THE 

1460 SYSTEM DUTY CYCLE. 

1461 

1462 

1463 

1464 

1465 

1ee¢ 5.4 TEST 4 - WRITE COMPATABILITY/WRITE UTILITY. 

6 

1468 REWINDS AND WRITES RECORDS OF RANDOM LENGTHS AND RANDOM DATA FROM 

1469 BOT TO EOT. 

1470 

1471 

1472 

ph 5.5 TEST 5 - READ COMPATABILITY/READ UTILITY. 
| 

| 

| | 
' | 
| | 





oe + ————— I a 





G3 


1530 CAS OPPOSED TO DIVIDE BY 2 OR WORD BOUNDARIES). 
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SEQ 0032 | 
1477 
1379 
1480 5.6 TEST 6 - EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
1482 THE SEQUENCE OF COMMANDS ENTERED BY THE OPERATOR IS EXECUTED. IF 
1483 NO COMMANDS ERE ENTERED, A DEFAULT SEQUENCE OF 
1484 REWIND/WRITE/REWINDUREAD EWDUREEND AF THE ENTIRE TAPE IS 
1485 EXECUTED WITH RANDOM PATTERN AND RECORD LENGTH OF 4096 BYTES. 
1487 
1488 
1489 6.0 DEVICE INFORMATION TABLES 
1491 : 6.1 GENERAL 
1493 THE TK25 SUBSYSTEM Is A 1/4 INCH CARTRIDGE TAPE DRIVE WITH EITHER 
1494 A UNIBUS OR Q@-BUS CONTROLLER. THE CONTROLLER MODULES USE THE 
1495 TS11 PROTOCOL AS DEFINED IN THE 7K25 SUBSYSTEM PROGRAMMERS GUIDE. 
1497 COMMANDS ARE NOT WRITTEN TO THE DRIVE; RATHER, COMMAND POINTERS 
1498 ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOMEWHERE IN CPU 
1499 MEMORY. THE COMMAND POINTER IS USED BY THE TK25 SUBSYSTEM TO 
1500 FETCH THE WORD(S) WITHIN THE COMMAND PACKET. THE WORDS WITHIN 
1501 THE COMMAND PACKET ARE: 
1503 1. COMMAND WORD 
1504 2: LOW ORDER BUFFER ADDRESS 
1505 3. HIGH ORDER BUFFER ADDRESS 
1506 4: BYTE COUNT 
1508 THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NECESSARY TO 
1509 DETERMINE WHETHER: 
1511 1. THE DRIVE IS READY TO ACCEPT ANOTHER COMMAND, 
1512 - 2. THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERROR. 
151 
1514 IF EITHER OF THE ABOVE CONDITIONS Is UNTRUE AT "JOB DONE” OR 
1515 "COMMAND INITIATION” TIME, IT BE NECESSARY TO GET THE 
1516 EXTENDED STATUS REGISTERS TO DETERMINE THAT ACTION IS TO BE TAKEN 
1517 AND/OR LOG THE ERROR INFORMATION. 
1519 EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM DRIVE 
1520 REGISTERS; RATHER, A "GET STATUS” COMMAND IS ISSUED WHICH WILL 
1521 CAUSE THE TK25 TO TRANSFER EXTENDED STATUS INFORMATION TO THE 
1522 MEMORY AREA POINTED TO BY THE BUFFER ADDRESS OF THE "GET STATUS" 
1523 COMMAND. THERE ARE FOUR EXTENDED STATUS REGISTERS. 
1525 THE TSDB MUST BE WRITTEN WITH A_ DATO INSTRUCTION TO PROPERLY 
1526 WRITE THE COMMAND POINTER. A DATOB WILL CAUSE A MAINTENANCE 
1527 FUNCTION. A DATO TO THE TSSR WILL CAUSE SUBSYSTEM INIT. 
1529 COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR MEMORY BOUNDARIES | 
! | 
' 
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6.2 BUS INTERFACE SPECIFICATIONS 


' THE STANDARD ADDRESSES AND VECTORS ARE ASSIGNED AS FOLLOWS: 


Q-BUS UNIBUS 
TK2S REGISTER — (1/0 PAGE) ADDRESS VECTOR 
0° TSBA/TSDB 1 2 520 772 520 
TSSR 1 2 S22 772 S22 224 
1 TSBA/TSOB 1 2 524 772 524 
TSSR 1 2 526 772 526 * 
2 TSBA/TSDB 1 2 530 772 530 
TSSR 1 2 532 772 532 ¥ 
3 TSBA/TSDB 1 2 534 772 534 
TSSR 1 2 536 772 536 * 


0 
LOWER RANK NUMBERS BEING ASSIGNED FIRST. NOTE THAT THE FLOATING 
VECTORS MAY CHANGE FROM SYSTEM TO SYSTEM. 


ST ce 





| 
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6.3 BIT DEFINITIONS FOR TK25 REGISTERS 
6.3.1 TK25 REGISTER SUMMARY - 
a...08 i Pus Baa Fas je frail = Bina lat _- = ae Pani Pen — 


TSBA } 
)P15} }P14}P13}P12) }P11}P10)P09) }P08)P07}P06) }P05)PO4}POS) }P02)P17)P16) 
oe WOE + Set Sees Doe | See Sow Be F dee ee ee F te Oe Se T tee ee 


e---4% ee 


)SC } }) } RMR) INXMINBAJAI7) JAIGISSRIOFL) JFCAIFCO}TC2) STCISTCO) > 
3 iy Ss te Soe pee ter foe 2 pe ty ton F tee ee HG 


lt Meee A Mette Ret A Dei Dele teteted Se Dt ee oe ee ee ee ee 


TSSR } ) 
ee ee ee Slate A Rell Dele Deleted Me Do oe So ee eee eee ee ee ee ee ees 
XSTO }TMK} JRLSILETIRLL) JWLE)NEF ILC) JILAJMOTIONLD JIE }VCK) } SWLKIBOTIEOT) 
ro Se. 22 Pe: eo eee Rh Se Boe oss ee 
XSTi DDLT} } } CRS) DNER} )} =} } )TN3)TN2) DTNL)TNO) EW) } DUNC) } 
) oe. 8. P.O PORE on. . ks Se. oe Se. See 
xST2 )OPM} DCF )DHF }SPD) ) O } } 1) )}  )} ERROR ADDRESS LST SIGNIFICANT BYTE) 
) ee. 8.828282 3.4 ) } } ) 
xST3 } ERROR ADDRESS MOST SIGNIFICANT BYTE } OPI) )REV}TCH)STP) } } )RIB) 
Se £28. 05 0) Be & a 2 ene } > 2 


TERMINATION CLASS CODES (TSSR TCO-TC2): 


0 NORMAL TERMINATION 
ATTENTION CONDITION 


uunuh 
<q 
> 
vU 
m 
w 
peat 
> 
=f 
= 
wn 
> 
ad 
m 
wD 
par 


JECT 
RECOVERABLE ERROR - —_, POSITION = ONE RECORD 
DOWN TAPE FROM START OF FUNCTION 

RECOVERABLE ERROR - TAPE NOT MOVED 
UNRECOVERABLE ERROR - TAPE POSITION LOST 

FATAL CONTROLLER ERROR 


NOW PWwhe 
" 
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6.3.2 TK25 STATUS REGISTER (TSSR) - 


6.3.2.1 TSSR READ ONLY - 
15 14 13 =. tt Pr Lente 


ee eee eee eee eee ee 


= = -. 


= - Pood 


_0e Pn Po 


a Ae eee of 


eee eee eee eee 4 2-2-4 ---4--- Oe ee ee ee eee eee eee eee ee + 
| arena ronepenipas®, “egg i ANN 2 Ey SEPT Sa ee } 
>} BIT NAME DEFINITION 

15 sc S SPECIAL og Se USED TO INDICATE 
THAT EITHER AN ERROR OR AN EXCEPTION 
OCCURRED WHILE EXECUTING A COMMAND. 

14 - - NOT USED 

13 - - NOT USED 

12 RMR S REGISTER MODIFICATION REFUSED: SSR 


a a a a a a a a a a ee ele 


~ 


TS oe oe 


(SUB-SYSTEM READY) WAS SET WHEN 
COMMAND POINTER WAS LOADED INTO TSDB. 


11 NXM 4/5 NONEXISTENT MEMORY: 
TRANSFER TO OR FROM A NONEXISTENT MEMORY 
LOCATION, THIS BIT WILL SET. 


10 NBA S NEED BUFFER ADDRESS: 


MESSAGE BUFFER ADDRESS IS REQUIRED. 

09 ~—s«AI7 S BUS ADDRESS BIT 17: DISPLAYS VALUE OF 
BIT 17 OF THE TSBA REGISTER. 

08 Al6 S BUS ADDRESS BIT 16: DISPLAYS VALUE OF 


BIT 16 OF THE TSBA REGISTER. 


WHEN AN ATTEMPT TO 


INDICATES THAT THE 


a a a a a a a a a a ae a a a a a et et et 


ewe we - 
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a a a a a a a a a a a a a a a eel 


~ 





05 


03 


TC2 


K3 


TERATNATION enna nnn nnn nnn nnn nnn e eo ne 2+ +--+ +--+ +--+ +--+ 


— - — —— oe _< - ~ 


DEFINITION 


SUBSYSTEM READY: THE presreten IS _NOT 
BUSY AND IS READY TO ACCEPT A NEW COMMAND 
POINTER WHENEVER THIS BIT IS SET. 


OFF LINE: INDICATES THE TAPE TRANSPORT 
IS OFF LINE AND UNAVAILABLE FOR ANY 
MOTION COMMANDS. 


FATAL TERMINATION CLASS 1 - NOT USED 
FATAL TERMINATION CLASS 0 - NOT USED 


TERMINATION CLASS BIT 2: THIS BIT, ALONG 
WITH TC1 AND TCO, ACTS AS AN OFFSET VALUE 
WHENEVER AN ERROR OR EXCEPTION CONDITION 
OCCURS ON A COMMAND. EACH OF THE EIGHT 

OOsSTOLe VALUES OF THIS Rh ally 


et et et et et et 


ES. THE C 
PROVIDED IN THIS FIELD IS EXPECTED TO BE 
USED AS AN OFFSET INTO A DISPATCH TABLE 
FOR HANDLING OF THE CONDITION. 
TERMINATION CLASS BIT 1: SEE TC2 
TERMINATION CLASS BIT 0: SEE TC2 


NOT USED 


a a a a a at a a a a a ae a at a a ae ae ee ae ee 


SEQ 0036 
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6.3.2.2 TSSR WRITE ONLY - 


WRITE COMMANDS TO THE TSSR DO NOT WRITE, BUT INVOKE CERTAIN 
SPECIALIZED FUNCTIONS. 


1. A WRITE WORD (DATO) TO THE TSSR WILL INITIALIZE THE TK25 
SUBSYSTEM AND REWIND THE TAPE ON THE CARTRIDGE. 


2. A WRITE BYTE (DATOB) TO THE LOW BYTE OF THE TSSR WILL 
CAUSE THE CONTROLLER TO EXECUTE ITS RESIDENT SELF TESTS. 
IF THE C fee al PASSES THE SELF page # IT WILL THEN 
on ee te ITSELF AND met VE AS ABOVE. THE TSDB/BA 


THE OURATI OF 

Saat a SDE ANY ATTEMPT BY THE HOST TO READ OR WRITE 
THESE REGISTERS DURING SELF TEST WILL RESULT INA 
NON-EXISTENT DEVICE REGISTER TIMEOUT. 


3. e AN OPERATION IS NOT IN PROGRESS (SSR SET IN THE 
TSSR), A WRITE BYTE TO THE HIGH BYTE OF THE TSSR WITH A 
"1" IN THE HIGH ORDER DATA BIT POSITION (BIT 7) WILL 
CAUSE THE SUBSYSTEM TO BOOT THE CPU BY MEANS OF THE 
FOLLOWING SEQUENCE OF EVENTS (Q-BUS CONTROLLER ONLY): 
O REWIND THE TAPE 
O SPACE FORWARD ONE RECORD 


O READ THE FIRST 256 BITS OF THE SECOND RECORD INTO 
CPU MEMORY STARTING AT ADDRESS 0. 


SEQ 0037 


_- 
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SEQ 0038 

1728 
1729 
1730 
1733 6.3.3 EXTENDED STATUS REGISTER 0 (XSTATO) - 
17s: 1S 14 13" 12 ll 10° 09 06 07 06 05 04 03 02 O01 00 
173 XSTO)TMK) RLS HLET ALL) MALE )NEF ILC) VILA HOT ONL } de wen) ) MLK )80T JEOT } 
Me Me a a RE CL CPL EE TREY Re OLY Re Ae SRT GN 
1738 ) 7 he ) 
1739 >) BIT NAME DEFINITION ) 
1740 I ee cit A Le Ak UE a ) 
1741 ) ) 
1742 ) 15 TMK S/2 TAPE MARK DETECTED: SET WHENEVER A o 
ines ; TAPE MARK IS DETECTED ON TAPE. ; 
1745 > 14 RLS 2 RECORD LENGTH SHORT: USED TO INDICATE ) 
1746 ) ONE OF THREE CONDITIONS: 1. T ) 
1747 ) READ WAS SHORTER THAN THE BYTE COUNT ) 
1748 ) 2. A SPACE RECORD OPERATION TERMINATED ) 
1749 ) BEFORE THE pst ION Coan WAS COMPLETED )} 
1750 ) (THIS IS NORMAL IF A TAPE MARK IS ) 
1751 ) DETECTED OR BOT IS ENCOUNTERED IN A ) 
1752 ) SPACE REVERSE). 3. A SKIP TAPE MARKS ) 
1753 ) COMMAND TERMINATED BEFORE THE POSITION ) 
1754 ) COveeT WAS COMPLETED. re S IS PORMAL IF ) 
1755 ) A DOUBLE TAPE MARK (SEE LET) IS ) 
1756 ) DETECTED OR Gor Is cuEDUNTERED IN A ) 
1757 ) REVERSE OPERATION. ) 
4738 ) ) 
1759 ) ) 
1760 > 13 LET 2 LOGICAL END OF TAPE: SETS IF A TAPE MARK ) 
176° ) Is Bs Tet Teo WHEN MOVING FROM BOT OR IF ) 
1/62 ) DOUBLE TAPE MARKS ARE DETECTED. NOTE: ) 
1763 ) THIS BIT WILL ONLY SET IF THE COMMAND 
1764 ) IS SKIP T MARKS AND THE MODE OF ) 
1765 ) TERMINATION WAS ENABLED BY THE SET > 
1766 ; CHARACTERISTICS COMMAND. : 
1 
1768 ) l2 RLL 2 RECORD LENGTH LONG: THE RECORD READ WAS ) 
1769 : LONGER THAN THE BYTE COUNT SPECIFIED. ; 
1 
1771 ) ll WLE 3,(6) WRITE LOCK ERROR: THE WRITE OPERATION ) 
1772 ) WAS ISSUED TO A WRITE pROTECTED TAPE. ) 
1773 ) NOTE: THE TK25 SETS THE TERMINATION > 
1774 ) CODE 3 ONLY. TC 6 APPLIES OMY TO ) 
1773 ; ORIVES EQUIPPED WITH A WRITE LOCK SWITCH ; 
1 
1777 ) 10 NEF 3 NON - tae ee ay Mp CAUSED TO SET ) 
1778 ) BY ONE OF THE F I ) 
fhe ; . REVERSE cowmae WHEN ALREADY AT BOT ; 
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) 

) 

) 

) 

) 

) 

) 

; 09 ILC 
) 

) 

) 

; 08 ILA 
07 MOT 
) 

; 06 ONL 
) 

) 

) 

) 

; 0S IE 
; 04 vcK 
) 

) 

) 

} 03 PED 
) 

} 02 WLK 
) 

} 01 BOT 
) 

) 

) 

; 00 EOT 
) 

) 

) 

) 


~ 


ee 


N3 


5/1/3 


S/3 


$/2/3 


S/2 


‘ es MOTION COMMAND WITHOUT A CLEAR 
OLUME CHECK WHILE THE TRANSPORT WAS 


OFF LINE. 
° - aie COMMAND TO A WRITE PROTECTED 


ILLEGAL COMMAND: ANY COMMAND T 

ole. CODES IN EITHER THE COMPAND 
FIELD OR MODE FIELD THAT ARE NO 

SUPPORTED BY THE TAPE TRANSPORT. 


ILLEGAL ADDRESS: WHEN THIS BIT IS SET, 
AN ILLEGAL ADDRESS IS ISSUED. 


CAPSTAN MOVED: INDICATES TAPE WAS MOVED 
DURING AN OPERATION. 


ON-LINE: INDICATES THAT THE SELECTED 
TRANSPORT IS ON-LINE AND REA ue TER- 
MINATION CLASS , IS SET FOR A 

INTERRUPTS AND TC 3 FOR NON- EXECUTABLE 
FUNCTIONS REJECTED WHILE OFF LINE 


INTERRUPT ENABLE: 


VOLUME CHECK: ALWAYS SET AFTER 
INITIALIZATION OR WHEN THE ON-LINE 
STATUS OF THE TRANSPORT CHANGES. 
CEITHER ON TO OFF OR OFF TO ON) 


PHASE ENCODED DRIVE: TK25 IS NOT P.E., 
SO THIS BIT IS ALWAYS ZERO. 


WRITE LOCKED: THE TAPE IS WRITE 
PROTECTED. 


BEGINNING OF TAPE: THE TAPE IS AT LOAD 
POINT, TC2 IS SET IF TAPE IS REVERSED 

INTO BOT, AND TC3 IF A REVERSE oe NO 
IS ISSUED WITH THE TAPE ALREADY A BOT. 


UNTIL THE HEAD PASSES BACK 
TO TRACK 9 IN THE REVERSE DIRECTION. 
(STATUS ON READ; TC2 ON WRITE. 
SUBSYSTEM INIT ALSO RESETS THIS BIT. 


St et Sr St Sat Sat et Sat St Sgt Sat St St St a et Sgt et gt Sa Sa et ag at Sgt gt gt gt a a ag ag at ag at at at a 


SEQ 0039 


a — — — 








-_=- a ee 
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| SE 0040 | 
| 1836 
| 1837 
1838 
1839 6.3.4 EXTENDED STATUS REGISTER 1 (XSTAT1) - 
1841 15 14 13 12° 11 10 09 08 07 06 05-04 03 02 O1 00 | 
ee 2 eee eee eee ae eee eee ee Cee eee eet ae ee eee a ee ee ee 
1943 LT)» > ERS) NER) . 5 DINS)TN2) INL }TNO) EW) }) UNC). > | 
eet ee eee eee eee ee eee ee Omen Coen been beens Fern boeceees @ Omen boon gence 
eg ete ahaha eh We 7 a tea 8 Donne a lS RS 4 ts apne 
1846 ) TERATAATION ) 
1847 } BIT NAME DEFINITION ) 
1848 I isos tenaiinmentaette iaeemiead iehanietiites tied ca tan eee a } 
1849 ) ) 
1850 > 15 DLT 4 DATA LATE: THIS BIT IS SET WHEN THE 16} 
1851 ) BYTE FIFO BUFFER IS FULL ON A READ. OR } 
1852 ) EMPTY ON A WRITE, AND THE TAPE TRANSPORT } 
1853 ) REQUIRES A DATA TRANSFER. ) 
1854 ) ) 
1855 . ee 2 te ; NOT USED. ) 
1856 ) ) 
1357 , as , NOT USED. 
1859 } 12 CRS 4 CREASE DETECTED. DATA DROPPED OUT FOR UP) 
1260 TO 1.8 MS (APPROXIMATELY 0.2 INCH). 
1962 } 11 NER 4 NOISE DETECTED DURING ERASE. 
1864 eS ya ‘ NOT USED. ) 
1865 } ) 
1866 coe . NOT USED. } 
1867 ) ) 
1868 , Oo ‘ NOT USED. 
1870 } 07 TNS 5 TAPE TRACK NUMBER HIGH ORDER BIT. 
1872 } 06 THe S TAPE TRACK NUMBER BIT 2. 
1 
1874 } 05 TN 5 TAPE TRACK NUMBER BIT 1. 
1876 } 06 TNO S TAPE TRACK NUMBER LOW ORDER BIT. 
1878 } 03 eu 5/4 EARLY WARNING HOLE AT END OF TRACK SEEN. 
1880 , oe : NOT USED. 
1882 > 02 UNC 4 UNCORRECTABLE DATA: IN THE TK25 ALL ) 
1883 } TAPE ERRORS ARE UNCORRECTABLE, SINCE  } 
1884 THERE 1S NO INTERNAL ERROR CORRECTION.) 
1886 . > ep a, ; NOT USED. ) 
1887 } ) 


ee 3 ee ee eee eee 





C4 
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| SEQ 0041 | 
1889 
1890 | 
1891 
1892 6.3.5 EXTENDED STATUS REGISTER 2 (XSTAT2) - | 
1894 15 14 13 12 11 10. 0908-07 0605 04 032 OL 00 
De ee ee ee ae ee 0 td ee ee ee oe ee oe fee ee. ae ee ee eee | 
1897 )OPM) }OCF JOHF )SPO) ) 0 ) }1)) ) ERROR ADDRESS st SIGNIFICANT BYTE) | 
Se ee ee ee ae eee | ll A Del Deleted De ee oe oe ee ee i 
1898 QoenGeendenns Socceeereeess seccecooeees ° 
1899 SET CHARACTERISTICS COMMAND XFS) “CONTROLLER FIRMWARE “VERSION ) 
1902 
1903 | Ses Dee 253 TERATRATION [f-McppeRRR GREE) whine “rn } 
1904 ) BIT NAME DEFINITION ) 
1905 SER eer EY Sainte col oo eae RTA fe FSi AS oI aE ys ) 
1906 ) ) 
1907 } 15 OPH S OPERATION IN PROGRESS: TAPE MOVED } 
1909 } 14 OCF 7 DRIVE COMMUNICATION FAULT. FAILURE OF 
1910 ) READ SENSE COMMAND TO TCS INITIATED AFTER) 
1911 ) DETECTING INT OR DER RESULTING FROM TAPE } 
1912 ) MOTION COMMAND TO TCS; OR HEALTH CHECK  } 
1913 FAULT RECEIVED IN TCS SENSE BYTES. } 
1915 } 13 DHF 7 DRIVE HARDWARE FAULT. NO LAMP CURRENT } 
1916 ) STATUS OR HEAD POSITIONING FAULT RETURN- } 
1917 } ED IN TCS SENSE BYTES. } 
1919 } 12 SPD 7 CAPSTAN SPEED ERROR, FAST OR SLOW } 
1921 } 0 . TK25 IDENTIFIER. ALWAYS ZERO. } 
1923 cs yey . NOT USED. ) 
1924 ) ) 
1925 Boek. . TK25 IDENTIFIER. ALWAYS ONE. } 
1927 } 08 . : NOT USED. } 
1929 } 07-00 EAD 07-00 § ERROR ADDRESS LEAST SIGNIFICANT BYTE. _} 
1930 ) (PROGRAM COUNTER IN THE TCD MICROCODE.) } 
1932 radovetessineessetoenannsininnlaanennirvtnsnenenessuansmamtapnernsana : 
1933 NOTE: XSTAT 2 BITS 07 THRU 00 HAVE A DIFFERENT MEANING DURING THE SET 
1934 CHARACTERISTICS COMMAND: XSTAT 2 BITS 06 THRU 00 RETURN THE MAJOR 
1935 REVISION LEVEL OF THE CONTROLLER MICROCODE (IN BINARY ). IF BIT 07 
1936 IS A 1, THE CONTROLLER ASSUMES A 22 BIT Q-BUS, 0, AN 18 BIT 
1937 Q-Bus OR A UNIBUS. IN THE LATTER CASE, COMMAND PACKETS’ CONTAINING 
1938 ADDRESSES GREATER THAN 18 BITS WILL GENERATE ERRORS. 
: 
| 
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6.3.6 


+ 


~ 
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EXTENDED STATUS REGISTER 3 (XSTAT3) - 
is - 13 le alt od vod ool woih rol al 04 03 02 al oth 
lite Al Deleted Rel deleted A ee ee oe ee eee eee eee ee ee ee ee ee 
ERROR ADDRESS HOST “SIGNIFICANT ‘BYTE ) }0PT) REV }TCH)STP) at IB) 
lel A Delt Del eld ee oe ee oe ee eee eee ee ee ee ee ee 0 ee 
TERMINATION 
BIT NAME CLASS DEFINITION 


ERROR ADDRESS Ky SIGNIFICANT BYTE. 

IF XSTAT 1 BIT 14 IS 1, THE ADDRESS IS 
THE PROGRAM COUNTER IN THE SIA, AND 

IF 0 IN THE TCS. 


07 - - NOT USED. 


OPERATION INCOMPLETE: SETS IF 16 FEET 
OF TAPE ~ a DATA PASSES THE READ 
HEAD ON READ, SPACE, OR SKT° OPERATIONS 
OR 4 FEET OF TAPE IN WRITE OPERATIONS. 


05 REV S REVERSE: INDICATES REVERSE IS THE 
DIRECTION OF CURRENT TAPE OPERATION. 

04 TCH ? NO TACHS: INDICATES THAT og Lay MOTOR 
DID NOT START OR THAT TACHS ARE NOT 
BEING GENERATED OR DETECTED. 

03 STP S/6 STRIPE: SERVO STRIPE IS FAULTY OR 
MISSING. 

02 - - NOT USED. 

01 - - NOT USED. 

00 RIB 2 REVERSE INTO BOT: SETS WHEN ae 


OPERATIONS ENCOUNTER THE BOT E 
WARNING HOLE AFTER TAPE IS IN MOTION. 


we ee ee ee 


I a a a ae a at at at a ae at a a a a at a a ae a et et ee 


; 
' 
— ee 
ee eee ee nn a a 


| PROGRAM HEADER 


| 
| 
, 


2043 002000 
2044 


2052 
2053 002000 


ee ee 


AND TABLES 


002000 


060 
000001 
005000 
030474 
030546 
002176 
002204 
032234 
000000 
000000 
000001 
000000 
002124 
000340 
000000 
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- TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 
-ENABL ABS,AMA 
" 2000 
BGNMOD 


+ 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNSW,BGNSFT , BGNAU,BGNDU, BGNSETUP 


HEADER CZTKI,B,0,5000,1, INTPRI 


L $NAME : s;DIAGNOSTIC NAME 

L$REV:: sREVISION LEVEL 

L$DEPO: : 30 

L$UNIT:: sNUMBER OF UNITS 

L$TIML:: s;LONGEST TEST TIME 
L$HPCP:: sPOINTER TO H.W. QUES. 
L$SPCP: : sPOINTER TO S.W. QUES. 
L$HPTP: : ;PTR. TO DEF. H.W. PTABLE 
L$SPTP:: sPTR. TO S.W. PTABLE 
L$LADP: : ;DIAG. END ADDRESS 
L$STA:: sRESERVED FOR APT STATS 
L$CO:: 

L$DTYP:: sDIAGNOSTIC TYPE 

L$APT:: ;APT EXPANSION 

L$DTP:: PTR. TO DISPATCH TABLE 
L$PRIO:: ;DIAGNOSTIC RUN PRIORITY 
L$ENVI:: ;FLAGS DESCRIBE HOW IT WAS SETUP 


«ASCII /C/ 
-ASCII /Z/ 
ASCII /T/ 
ASCII /K/ 
ASCII /I/ 
BYTE 0 
BYTE 0 
BYTE 0 
ASCII /B/ 
ASCII /0/ 
-WORD TS$PTHV 
-WORD 5000 
WORD L$HARD 
WORD L$SOFT 
-WORD LS$HW 
-WORD L$SW 
-WORD LS$LAST 
-WORD 90 
-WORD 0O 
-WORD 1 

WORD 0O 
-WORD L$DISPATCH 
WORD INTPRI 
-WORD 0 


‘ PROGRAM HEADER 
| PROGRAM HEADER 


2054 


ee ee ee 


AND TABLES 


024424 
024360 
000000 
002140 
104035 
000000 
022252 
024302 
023660 
022244 
000000 
000000 
000000 
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L$EXP1:: 
LS$MREV:: 


LSEF:: 


L$SPC:: 
L$DEVP:: 
L$REPP: : 
LSEXP4: : 
L$EXPS: : 
L$AUT:: 
L$DUT:: 
L$LUN:: 
L$DESP:: 
L$LOAD: : 
L$ETP:: 
L$ICP:: 
L$CCP: : 
L$ACP:: 
L$PRT:: 
L$TEST:: 
L$DLY:: 
L$HIME: : 


sEXPANSION WORD 
SVC REV AND EDIT # 


;DIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIST 
sPTR. TO REPORT CODE 


sPTR. TO ADD UNIT CODE 

sPTR. TO DROP UNIT CODE 

sLUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
;GENERATE SPECIAL AUTOLOAD EMT 
sPOINTER TO ERRTBL 

sPTR. TO INIT CODE 

;PTR. TO CLEAN-UP CODE 

sPTR. TO AUTO CODE 

sPTR. TO PROTECT TABLE 

;TEST NUMBER 

sDELAY COUNT 

;PTR. TO HIGH MEM 


SEQ 0044 


L$AU 
L$DU 
0 
L$DESC 
E$LOAD 
0 
L$INIT 

L$CLEAN 
L$AUTO 

L$PROT 

0 
0 
0 


| PROGRAM HEADER 
| DISPATCH TABLE 


2062 
coe 


064 
2065 
2066 
2067 
2068 
2069 002122 

002122 


2085 002166 
00 


002171 


ee ee eee oe 


AND TABLES 


000006 
024520 


027526 
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062 


-SBTTL DISPATCH TABLE 


; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF rte TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST 
son 


DISPATCH 6 ; SIX TESTS 
L$DISPATCH: : 


-SBTTL DESCRIPTIVE TEXT 


;2 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND 


DESCRIPT <DATA RELIABILITY TEST> 
L$DESC:: 


DEVTYP <TK25> 
L$DVTYP:; 


SS ny 
' 


-ASCIZ 


-EVEN 


-ASCIZ 
-EVEN 


THE DEVICE UNDER TES 


/DATA RELIABILITY TE 


/TK25/ 


| PROGRAM HEADER AND TABLES 


ae ll Le 


DEFAULT HARDWARE P-TABLE 


2104 002176 
2105 002200 


2106 
2107 002202 
002202 


172522 
000224 


-SBTTL DEFAULT HARDWARE P-TABLE 


34 


; THE 








H4 
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DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES 
; THE TEST-DEVICE PARAMETERS. THE STRUCTUR 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW 


L$HW:: 
DFPTBL: : 


172522 
224 


ENDHW 


L10000: 


DFPTBL 


;TSSR ADDRESS. 


;VECTOR ADDRESS. 


OF 
E OF THIS TABLE 


eee we + 


-WORD L10000-L$HW/2 


= 


SEQ 0046 


* 
TLL TTR TS kL A 


A 





a SL 


: | 14 
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| SOFTWARE P-TABLE SEQ 0047 
2110 -SBTTL SOFTWARE P-TABLE 
2111 
2112 $e 
2113 THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
sus ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
2116 002202 BGNSW SFPTBL 
002202 000043 -WORD L10001-L$SW/2 
002204 L$SW: 
002204 SFPTBL 
2123 204 001 CLRFLG::.BYTE 1 ;CLEAR COUNTERS FLAG. 
2124 002205 000 RRANV BYTE 0 ;RESET RANDOM VARIABLES EACH PASS FLAG. 
2125 002206 000 HAE BYTE 0O ;HALT AFTER EACH COMMAND FLAG. 
2126 002207 000 ERCVER::.BYTE 0 ; ENABLE RECOVERABLE os PRINTS FLAG. 
2127 002210 006 BYTE 0 ; INHIBIT ERROR RECOVERY FLAG. 
2128 002211 001 BADTSW::.BYTE 1 ;BAD TAPE SWITCH TO REURTTE ON SAME SPOT & DETECT BAD TAPE 
2129 002212 000 BYTE 0O ;DISABLE INTERRUPTS FLAG. 
2130 002213 000 P BYTE 0 ; INHIBIT RESIDUAL PRAMECOUNT ERROR REPORT FLAG. 
2131 002214 000 RAMWRT::.BYTE 0 ENA BLE OPTIONAL RAM DUMP 
2132 002215 000 BYTE 0 ; SPARE 
2133 002216 000 EWPRNT::.BYTE 0 ; ENABLE EARLY WARNING END OF TRACK STATUS PRINTS 
Sits 002217 000 CHGFLG: : Mu 0 ; CHANGE CMD SEQ TABLE FLAG. 
2136 002220 000040 CHAR:: CH.EAI ;CHARACTERISTICS CODE (DEFAULT = 40). 
2137 002222 000015 CMDD:: .WORD 13. ;COMMAND 2 (DEFAULT = REWIND). 
2138 002224 000001 -WORD 1 ;BYTE COUNT 
2139 002226 000001 -WORD 1 sNUMBER OF ae 
2140 002230 000007 -WORD RANP ; RANDOM DAT 
2141 002232 000004 -WORD 4 sCOMMAND 3 A DEFAULT = WRITE) 
2142 002234 010000 -WORD DATCNT :BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
2143 002236 035230 -WORD 15000. —— ER OF OPERATIONS (DEFAULT = 15000). 
2144 002240 000007 -WORD RANP RANDOM DATA 
2145 002242 000015 -WORD 13. COMMAND - (DEFAULT = REWIND) 
2146 002244 000001 -WORD 1 ;BYTE COUN 
2147 002246 000001 -WORD 1 ; ONE OPERATION 
2148 002250 000007 -WORD RANP ;RANDOM DATA 
2149 002252 000002 -WORD 2 ;COMMAND 5 (DEFAULT = READ FWD). 
2150 002254 010000 -WORD DATCNT ;BYTE ad (DEFAULT = MAX BUFFER SIZE). 
2151 002256 035230 -WORD 15000. sNUMBER OF OPERATIONS (DEFAULT = 15000) 
2152 002260 000007 -WORD RANP ;RANDOM DATA 
2153 002262 000033 -WORD 27. s TERMINATOR 
2154 002264 000001 -WORD 1 ;BYTE COUN 
2155 002266 000001 -WORD 1 NUMBER | OF OPERATIONS 
2156 002270 000007 -WORD RANP ;PATTERN 
2157 002272 000033 -WORD 27. sEND OF CMD SEQ TABLE CODE (DEF) OR CMD 7 
2158 002274 010000 -WORD DATCNT ;BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
2159 002276 035230 -WORD 15000. sNUMBER OF CAAT ES (DEFAULT = 15000). 
2160 002300 000007 -WORD RANP sRANDOM DATA 
2161 002302 000033 -WORD 27. s;END OF CMD SEQ TABLE CODE (DEF) OR CMD 8 
2162 002304 010000 -WORD DATCNT sBYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
2163 002306 035230 -WORD 15000. s;NUMBER OF OPERATIONS (DEFAULT = 15000). 
2164 002310 000007 -WORD RANP ; RANDOM DATA 
2165 002312 ENDSW 


002312 L10001: 
2166 002312 ENDMOD 


=a 


a 





—— ee ee ee 
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| SOFTWARE P-TABLE 


2179 
2180 - TITLE GLOBAL AREAS 
si8h -SBTTL GLOBAL EQUATES SECTION 
2191 002312 BGNMOD 
2192 
2193 3+4 
2194 ; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
2195 ARE USED IN MORE THAN ONE TEST. 
2196 ;-- 
2197 
2198 002312 EQUALS 
: 
; BIT DIFINITIONS 
100000 BIT15== 100000 
040000 BIT14== 
020000 BIT13== 20000 
010000 BITi2== 1 
000 BIT11== 4000 
002000 BIT10== 2000 
001000 BITO9== 
00 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
BITOS== 40 
000020 BIT04== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
001000 BIT9== BITO9 
BIT8== BITO8 
000200 BIT7== BITO7 
000100 BIT6== BITO6 
BITS== BITOS 
000020 BIT4== BIT04 
0 BIT3== BITO3 
BIT2== BITO2 
000002 BITi== BITO1 
1 BITO== BITOO 


; EVENT FLAG DEFINITIONS 
; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


000040 EF .START== 32. ; START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. ; RESTART COMMAND WAS ISSUED 
000036 EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28. ; A POWER-FAIL/POWER-UP OCCURRED 


; 
; PRIORITY LEVEL DEFINITIONS 


000340 PRIO7== 340 
000300 PRI06-= 300 


a ee 


2 ee ee ee 


SEQ 0048 


—— —— ee ee ee 





eee ee 
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GLOBAL EQUATES SECTION 


177761 


PRIOS== 240 
200 


PRIO4== 
PRIO3== 140 

PRIO2== 100 

PRIOI== 40 

PRIO0== 0 

: 

;OPERATOR FLAG BITS 
é 

EVL== 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 


; REGISTER USAGE. 


: RO - PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR. 
; Ri - COMMAND SEQUENCE TABLE POINTER. 

; R2 - GENERAL PURPOSE REGISTER 

; R3 - GENERAL PURPOSE REGISTER 

; R4 - GENERAL PURPOSE REGISTER. 

; RS - CURRENT ae DEVICE NUMBER X 2. 

; R6 - STACK POINT 

; R7 - PROGRAM COUNT ER. 

;THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 
TS.SC==100000 sSPECIAL CONDITION BIT. 
TS.UPE==40000 sUNIBUS PARITY ERROR 

TS. SPE==20000 sSERIAL BUS PARITY ERROR. 
TS.RMR==10000 sREGISTER nar neat REFUSED. 
TS ..NXM==4000 ;NON-EXISTENT 

TS.NBA==2000 sNEED BUFFER ADDRESS. 

a A17==1000 sBUS ADDRESS BIT 17. 
TS.A16==400 sBUS ADDRESS BIT 16. 
TS.SSR==200 sUNIT READY BIT. 

TS.OFL==100 sOFF LINE. 

TSC.FCC#=*177717 sFATAL CLASS CODE MASK. 

TSC. TCC==177761 ; TERMINATION CLASS CODE MASK. 


SEQ 0049 





L4 
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GLOBAL AREAS 
GLOBAL EQUATES SECTION 


;THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 

100000 ACK .C==100000 sACKNOWLEDGE BIT 

040000 CvC .C==40000 sCLEAR VOLUME CHECK. 

020000 OPP .C==20000 sOPPOSITE BIT 

010000 SWB .C==10000 ; SWAP BYTE BIT 

004000 MOD .C3==4000 sMODE BIT 3 

004000 BRF .C==4000 sBYTE/RECORD/FILE COUNT FLAG BIT. NOT USED 
;BY TK25 BUT USED INTERNALLY BY THIS PROGRAM ONLY. 

002000 MOD .C2==2000 sMODE BIT 2 

001000 MOD .C1==1000 sMODE BIT 1 

000400 MOD .CO==400 ;MODE BIT 0 

000200 IE.C==200 s INTERRUPT ENABLE 

000100 we Ci==100 T BIT 1 

000100 VFY.C==100 URTTE VERIFY FLAG BIT. INTERNAL USE ONLY. 
sNOT USED BY TK25. 

000040 FMT .CO==40 ;FORMAT BIT 0. 

000040 JMP .C==40 ;JUMP BIT-TO DIRECT THIS PROGRAM TO JUMP TO 
iA CERTAIN LOCATION IN THE latent SEQUENCE 
sTABLE. INTERNAL USE ONLY 

000020 CMD .C4==20 sCOMMAND BIT 4 

000020 OLY .C==20 sINSERT DELAY. INTERNAL USE ONLY. 

000010 CMD .C3==10 sCOMMAND BIT 3 

000004 CMD .C2==4 sCOMMAND BIT 2 

000002 CMD .Ci==2 sCOMMAND BIT 1 

000001 CMD.CO==1 sCOMMAND BIT 0 

; BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 

000200 CH.ESS==200 sENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL E0T). 

000040 CH.EAI==40 sENABLE ATTENTION INTERRUPTS. 

000020 CH.ERI==20 sENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 

000040 DF TSCH==CH.EAI ;DEFAULT CHARACTERISTICS CODE. 


sTHE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 
;IN THE MESSAGE BUFFER. 


000004 MS. .RFC==4 sRESIDUAL FRAME COUNT. 
000006 MS .XSO==6 sEXT STATUS REG 0 
000010 MS .XS1==10 sEXT STATUS REG 1 
000012 MS .XS2*=12 sEXT STATUS REG 2 
000014 MS .XS3=#=14 sEXT STATUS REG 3 
sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 
100000 XO. TMK = = 100000 ;TAPE MARK. 
040000 X0.RLS==40000 ;RECORD LENGTH SHORT. 
020000 X0.LET==20000 ;LOGICAL EOT. 
010000 X0.RLL==10000 ;RECORD LENGTH LONG. 
000100 XO. ONL ==100 3ON LINE BIT. 
000002 X0.B0T==2 ;B0T BIT. 
000001 X0.E0T==] ;€0T BIT. 
sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1. 
000010 X1 EWN: =BIT3 


SEQ 0050 


nr ee ee et - 


GLOBAL 


AREAS 


GLOBAL EQUATES SECTION 


20 
010000 


177740 
7 


{adi 
100013 
104001 
104401 
104005 
104105 


104010 


ee 
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sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS RECISTER 2. 
X2. OPM== 100000 sOPERATION IN PROGRESS, TAPE MOVING 
sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 


X3.0CK==10 sDENSITY CHECK. 
X3.RNY==157400 ;sCAPSTAN RUNAWAY UDIAG ERROR CODE. 


sTHE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
;PACKET ENTRIES. 


CP .CMD==0 sCMDPKT -O==TK25 COMMAND. 
CP.ADL==2 sCMDPKT+2==BUFFER ADDRESS LOW. 
CP. ADH==4 sCMOPKT+4==BUFFER ADDRESS HIGH. 
CP .CNT==6 sCKDPKT+6*=BYTE/FILE/RECORD COUNT 
; MISCELLANEOUS DEFINITIONS. 
INTPRI==PRIO7 sPRIORITY TO BE USED IN INTERRUPT STATE. 
SCHCNT==10 ;ARBITRARY BYTE LENGTH FOR CHARACTERISTIC 
sBUFFER LENGTH. (EVEN @) 
MSGCNT==16 sMESSAGE BUFFER LENGTH IN Au: 5 — @) 
DIACNT==20 sDIAGNOSTIC COMMAND BUFFER EXT 
DATCNT ==4096. sMAXIMUM RECORD LENGTH IN Bytes. 
;THIS COUNT SHOULD BE A MULTIPLE OF 256 10 INSURE 
;PROPER ry gh BUFFER ALLOCATION BY THE SUPER. 
RNOPSC ==177740 aaee @ OF OPERATIONS MASK. 
RANP==7 s;CODE TO SELECT RANDOM PATTERN. 
RRECL==16. sREAD RECOVERY ATTEMPT LIMIT. 
WRECL*=16. ;WRITE ant te ATTEMPT LIMIT. 
RANBC=* 153624 ;CONSTANT USED TO RESET RANDOM © GENERATOR BASE. 
RANSC==32561 CONSTANT USED TO RESET RANDOM @ ® SAVE LOCATION. 
NINUSE == 177774 USE CODE FOR DEVICE STATE TABLE. 


sNOT IN 
NCMD.C==ACK.C!CVC.C!0PP.C!SWB.C!MOD.C3!MOD.C2!MOD.C1!MOD.CO!TE. C!FMT.CL!FMT.CO 
sNOT “COMMAND” BITS. 


;THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TK25 COMMAND. 


DRI== ACK.C!CMD.C3!CMD.C1!CMD.CO 

;DRIVE INIT. 
ROF==  ACK.C!BRF.C!CMD.CO 

;READ FORWARD 
RDR== ACK.C!BRF.C!MOD.CO!CMD.CO 

sREAD REVERSE 
WRT== ACK.C!BRF.C!CMD.CO!CMD.C2 

;WRITE COMMAND 
WTV== ACK.C!BRF .C!VFY.C!CMD.CO!CMD.C2 

sWRITE VERIFY 
SRF==  ACK.C!BRF.C!CMD.C3 


sSPACE RECORD FORWARD 


SEQ 0051 


ee ee ee eee ee re eee 
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GLOBAL AREAS 
GLOBAL EQUATES SECTION 
2348 104410 


2351 105401 


125401 


~ 
w 


2357 105001 
2360 125001 
2363 105005 
102010 
2369 100012 
2372 100011 
2375 101011 
2378 105010 
2381 105410 
2384 100017 
2387 100411 
2390 100412 
2393 101012 


2396 140004 
2398 100006 
2400 000040 
2402 000020 
2404 177777 


* ae a en ee a ee ew 


SRRe= 





SEQ 0052 


ACK .C!BRF .C!MOD.CO!CMD.C3 
sSPACE RECORD REVERSE 


ACK .C!BRF .C!MOD.C1!MOD.CO!CMD.CO 
sREAD REV RETRY1 - REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 


ACK .C!BRF .C!0PP.C!M0D.C1!MOD.CO!CMD.CO 
sREAD REV RETRY2 - REREAD NEXT FORWARD, IE.READ FORWARD, SPACE REVERSE 


ACK. sone? C!M0D.C1!CMD.CO 


READ FWD RETRY1 - REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORWARD | 


ACK .C!BRF .C!OPP.C!MOD.C1!CMD.CO 


;READ FWD RETRY2 - REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORWARD ' 


ACK.C!MOD.C1!BRF .C!CMD.C2!CMD.CO 
sWRITE RETRY 


ACK.C!MOD.C2!CMD.C3 
sREWIND COMMAND 


ACK .C!CMD.C3!CMD.C1 
sMESSAGE BUFFER RELEASE 


ACK.C!CMD.C3!CMD.CO 
s;WRITE TAPE MARK. 


ACK.C!MOD.C1!CMD.C3!CMD.CO 
;sWRITE TAPE MARK RETRY. 


ACK.C!BRF.C!MOD.C1!CMD.C3 
sSPACE FILE FORWARD 


ACK .C!BRF.C!MOD.CO!MOD.C1!CMD.C3 
sSPACE FILE REVERSE 


ACK.C!CMD.CO!CMD.C1!CMD.C2!CMD.C3 
sGET EXTENDED STATUS 


ACK .C!MOD.CO!CMD.C3!CMD.CO 
sERASE 3 INCHES OF TAPE 


ACK.C!MOD.CO!CMD.C3!CMD.C1 
sUNLOAD COMMAND 


ACK .C!MOD.C1!CMD.C3!CMD.C1 
sERASE TAPE. 


ACK.C!CVC.C!CMD.C2 sSET DEVICE CHARACTERISTICS. 
ACK.C!CMD.C2!CMD.C1 sDIAGNOSTICS. 

JMP .C ;JUMP TO “N"TH COMMAND 
OLY.C sDELAY “N” MS, 

177777 sEND OF COMMAND SEQUENCES 


— <- mee ee ee 





—_—— —— — ee ce ee ee 
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| GLOBAL DATA SECTION SEQ 0053 
| pa06 .SBTTL GLOBAL DATA SECTION 
| 3808 
2409 ; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
2410 ; IN MORE THAN ONE TEST. 
2411 s-- 
2412 
esis ; COMMAND PACKET. | 
2415 002314 : - .©36177774 ;MUST BE ON MOD 4 BOUNDRY. 
2416 002314 000000 CMDPKT:: 0 31ST WORD IS TK2S COMMAND. 
2417 002316 000000 0 32ND WORD IS THE BUFFER LOW ADORESS. 
2418 002320 000000 0 ;3RD WORD IS THE BUFFER HIGH ADDRESS. 
2419 002322 000000 0 }4TH WORD IS THE BYTE/RECORD/FILE COUNT. 
2421 ; GET STATUS COMMAND PACKET. | 
2423 002324 : 2 . «36177774 ;MUST BE ON MOD 4 BOUNDRY. 
2424 002324 100017 GSCPK:: .WORD GES 
2425 
2426 
242? : MESSAGE BUFFER RELEASE COMMAND PACKET. 
2429 002330 f 2 .©36177774 ;MUST BE ON MOD 4 BOUNDRY. 
2430 002330 100012 BRCPK:: .WORD BR 
2432 ; REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 
2434 002334 : - .©36177774 ;MUST BE ON A MODULE 4 BOUNDARY. 
2435 002334 102010 RWCPK:: .WORD RWD 
2436 002336 000001 “WORD 1 
2438 ; WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 
2440 002340 MSGPKT:: .BLKW 7 31ST WORD:: MESSAGE TYPE. 
2441 ;2ND WORD:: DATA FIELD LENGTH. 
2442 ;3RD WORD: : RESIDUAL FRAME COUNT. 
2443 ;4TH WORD:: XSTATO 
2444 ;5TH WORD:: XSTAT1 
2445 36TH WORD:: XSTAT2 
2446 ;7TH WORD:: XSTAT3 
2447 
244g : MESSAGE PACKETS. 
2450 002356 MSGPKO:: .BLKW 7 ;MESSAGE PACKET FOR DEVICE #0 
2451 002374 MSGPK1:: .BLKW 7 ;MESSAGE PACKET FOR DEVICE #1 
2452 002412 MSGPK2:: |BLKW 7 ;MESSAGE PACKET FOR DEVICE #2 
2453 002430 MSGPK3:: .BLKW 7 ;MESSAGE PACKET FOR DEVICE #3 
i 
| 


— FL | LL LL LLL LL, OE tl em ge ume _— - 
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‘GLOBAL DATA SECTION SEQ 0054 
pats] ; SET CHARACTERISTIC BLOCK. 
2457 002446 002356 SCHBK:: MSGPKO 31ST WORD:: MSGPKT ADDR LO(SET UP BY EXCUTE ROUTINE). 
2458 002450 900000 0 s2ND WORD:: MSGPKT ADDR HI. 
2459 002452 000016 MSGCNT ;3RD WORD:: MSG BUFFER LENGTH (BYTES) 
ay 002454 000040 CH.EAI 34TH WORD:: CHARACTERISTICS WORD(SET BY SETUP ROUTINE). 
sees 3 TK25 REGISTER ADDRESSES. 
2464 002456 TSOB:: .BLKW 4 :TK25 DATA BUFFER ADDRESSES. 
2465 002466 TSSR:: .BLKW 4 ;TK25 STATUS REGISTER ADDRESSES. 
2466 002476 TSVCT:: .BLKW 4 ;TK25 VECTOR ADDRESSES. 
od 002456 TSBA==TSOB ;DATA BUFFER ADDRESS REGISTER. 
esto ; ADDRESSES OF MESSAGE PACKETS. 
2471 002506 002356 MSGPKA:: MSGPKO ;DEVICE 0. 
2472 002510 002374 MSGPK1 sDEVICE 1 
2473 002512 002412 MSGPK2 VICE 2. 
srs 002514 002430 MSGPK3 SDEVICE 3. 
5479 ; ADDRESSES OF INTERRUPT HANDLING ROUTINES. 
2478 002516 006564 TS4INT:: TS4INO sDEVICE 0. 
2479 002520 TS4IN1 sDEVICE 1. 
2480 002522 006630 TS4IN2 sDEVICE 2. 
esas 002524 006652 TS4IN3 sDEVICE 3. 
oes ; TK25 CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
2485 002526 000000 TS4CL:: 0 sDEVICE 0 
2486 002530 000000 0 sDEVICE 1 
2487 002532 000000 0 sDEVICE 2 
4 002534 000000 0 sDEVICE 3 
2490 ; UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4). 
2491 ; WHEN DEVICE IS NOT IN USE, IT,S LOCATION WILL = -3. 
os | ; k5 WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2. 
2494 002536 177774 DEVTBL:: .WORD NINUSE 
2495 002540 177774 -WORD NINUSE 
2496 002542 177774 -WORD NINUSE 
2497 002544 177774 -WORD NINUSE 
ate 002546 177777 -WORD END 
2500 ; BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE 
Sans ; “WRTY” TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST 
2503 002550 003000 BTADDR:: BTO 
2504 002552 003052 BT1 
2505 554 003124 BT2 


00 
2506 002556 003176 BT3 


ene ae ee 


ee ee ee ee 


ee ee mee oe 
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| GLOBAL DATA SECTION SEQ 0055 

2508 ; COUNTER AREA. 
2509 
2510 002560 CNTBGN=. 
2511 002560 WRBC:: .BLKW 20 BYTES WRITTEN. 
2512 002620 RRBC:: .BLKW 20 sBYTES READ REV. 
2513 002660 RFBC:: .BLKW 20 sBYTES READ FWD. 
2514 002720 REC LKW 4 sRECOVERABLE WRITE ERRORS. 
2515 002730 BLKW 4 ;UNRECOVERABLE WRITE ERRORS 
2516 002740 RRREC BLKW 4 sRECOVERABLE READ 
251 750 RR BLKW 4 sUNRECOVERABLE READ REV ERRORS 
2518 002760 RFREC BLKW 4 sRECOVERABLE READ FWDERRORS. 
2519 002770 RFUNR LKW 4 sUNRECOVERABLE READ FWD ERRORS. 
2520 003000 BTO BLKW 21. UNIT O BAT TAPE SPOTS LOG 
2521 003052 BT1 BLKW 21. sUNIT 1 BAT TAPE SPOTS LOG 
2522 003124 BT2 BLKW 21. s;UNIT 2 BAT TAPE SPOTS LOG 
2523 003176 BT3 BLKW 21. s;UNIT 3 BAT TAPE i LOG 
2524 003250 WRTYCT BLKW 4 ;WRITE RETRY COUNTER 
2525 003260 PASCNT BLKW 4 ;PASS COUNT. 
2526 003270 SCCNT BLKW 4 ;SPECIAL CONDITION COUNT. 
2527 300 VF YCNT BLKW 4 ;COUNT OF TK25 DATA COMPARE ERRORS. 
2528 003310 HROCNT BLKW 4 s;COUNT OF HARD ERRORS. 
2529 003320 FTLCNT:: .BLKW 4 ;COUNT OF FATAL ERRORS. 
2530 003330 CNTEND=. sEND OF STATICTICAL COUNTERS. 
2531 003330 | RECCNT:: .BLKW 4 sNUMBER OF RECORDS FROM BOT: CLEARED ON REWIND 
2532 AND WHEN RESTARTING OR CONTINUING TEST 2. 
Sees 000550 CNTLEN==CNTEND-CNTBGN ;LENGTH OF STATISTICAL COUNTER AREA. 
2535 003340 000 HERE:  .BYTE 0 sTEST 3 ASCII SEMAPHORE 
2536 ; THE ‘i are ~% ay DEFINITIONS OF VARIABLES 
2537 ; USED BY THE PROGRA 
2538 
253 -EVEN 

003342 000000 RAMHLD WORD 0 ;RAM ADDR conch 1ST ADDRESS 
2541 003 000000 RAMRSH WORD 0 ;HOLDS R5 FOR LATER 
2542 003346 RAMDATA::.BLKW 16. ;DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 
2543 003406 000000 ORD 0 ;RAM DATA SIZE FOR PRAMPKT ROUTI NE 
2544 003410 0000 MP WORD 0 ;COUNTS @ OF ore (TEST 3) Ak ALLOWING A DATA COMPARE 
2545 003412 000003 DATRAT WORD 3 sCONTROLS THE DATA COMPARE RATIO 
2546 003414 DATAWT WORD 0 ;WRITE BUFFER ADDRESS. 
2547 003416 000000 DATARD WORD 0 sREAD BUFFER ADDRESS 
2548 003420 000000 WORD 0 sSTORAGE FOR VALUE 0 
2 003422 000000 NCNT1 WORD 0 ;TEMP STORAGE FOR VALUE OF N 
2550 003424 000000 BRF CNT WORD 0 sSTORAGE FOR BPCR VALUE. 
2551 003426 177777 WORD END sCONTAINS COMMAND WORD BEING EXECUTED PRESENTLY. 
2552 003430 177777 CMDSAV WORD END sSAVE LOCATION FOR CMD WORD DURING ERROR RECOVERY 
2553 003432 177777 PCMDWD WORD END CONTAINS PREVOUS COMMAND WORD. 
25 000000 CMOLG: WORD 0 sCURRENT COMMAND LOGGING CODE. 
2555 000000 LENMSK WORD sRANDOM WRITE LENGTH MASK, TO BE SET UP BY TESTS 
2556 003440 153624 RANB PD 153624 sRANDOM # GENERATOR BASE. 
2557 003442 032561 RANS WORD 32561 sRANDOM # ae LOCATION. 
2558 003444 000000 TIME1 WORD 0 ;TIME COUN 

00 0 :TINE COUNT 3° 

2560 003450 000000 JLOOP:: .WORD 0 4 COMMAND LOOP COUN 
2561 003452 000000 JLOC:: .WORD O P_ COMMAND LOCATION COUNT. 
2562 003454 000000 PATERN:: .WORD 0 ‘ DATTERN SELECT CODE. 
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ION SEQ 0056 
000000 CTCC:: .WORD 0 ;CURRENT TERMINATION CLASS CODE. 
000000 RSSAVE:: .WORD 0 ;LOCATION FOR SAVING CURRENT DEVICE POINTER. 
000000 TSSREG:: .WORD 0 ;CURRENT STATUS REGISTER 
003414 DIABLK==DATANT ;WRITE BUFFER ALSO USED FOR DIAG CMD. 
LCSR:: 0 ;L CLOCK CSR ADDRESS 
000000 LBRVEC:: .WORD 0 ;L CLOCK BR LEVEL 
000000 LVECT:: .WORD 0 ;L CLOCK VECTOR ADDRESS } 
000000 LHERTZ:: .WORD 0 3L CLOCK FREQUENCY | 
; ERROR FLAG AREA, THESE Anny B ARE CLEARED DURING INITIALIZATION AND j 
; AFTER EACH COMMAND IS COMPLETED. | 
003474 BGNFLG=. 
000000 RETRYC:: .WORD 0 3# OF RECOVERY ATTEMPTS EXECUTED. 
000 RPTCNT:: .BYTE 0 ;WRITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY 
000 WRTYFG:: .BYTE 0 ; RETRY ON SAME SPOT IN PROGRESS FLAG 
000 WRTYER:: .BYTE 0 WRITE RETRY ON SAME SPOT ERROR FLAG 
000 RECLOG:: .BYTE 0 sRECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
000 ERLOG:: .BYTE 0 ;DATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS RECORD. 
RWERR:: .BYTE 0 sREAD/WRITE ERROR HAS OCCURED. 
000 UNREC:: .BYTE 0 sUNRECOVERABLE ERROR HAS OCCURED. 
ERRREC: : guoee 0 sERROR RECOVERY MODE. 
003506 ENDERF =. 
s ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 
INTFLG:: .BLKW 4 sINTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
EOTFLG:: .BLKW 4 ;EOT/BOT FLAGS FOR EACH DEVICE (XSTATO). 
BTPT:: .WORD 0 #BAD TAPE SPOT POINTER TO BTO- ae VIA BTADDR 
000000 TC4STO:: .WORD 0 TCC4 ROUTINE - TEMPORARY STORAGE 
EXPBOT:: .BYTE 0 :B01 IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 
000 RANDOM:: .BYTE 0 RANDOM EVERYTHING FLAG. 
000 VFYFLG:: .BYTE 0O ;SET DURING WRITE/VERIFY COMMAND . 
RPTFLG:: .BYTE 0 ;PERFORMANCE REPORT HAS BEEN REQUESTED. 
000 SWBFLG:: .BYTE 0 sENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO. 
000 LOOPCT::.BYTE 0 sWRITE LOOP CONTROL (TEST 3) 
IRE:: .BYTE 0 INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
000 DROPED:: .BYTE 0 sCURRENT UNIT HAS gee DROPPED 
000 TISWB:: .BYTE 0 ;TEST1 SWAP BYTES FLAG 
ALLEOT:: .BYTE 0 ;ALL_UNITS @ EOT FLAG 
000 STREAM:: .BYTE 0 sINDICATES TEST ONE UNIT AT A TIME, COMPLETELY. 
000 ERSFLG:: .BYTE 0 ;ERASE FLAG: DO ERASE AFTER A SPACE REV TO DELETE 
es WRITTEN RECORD. 1 TO 4 ERASES LEAVING 
_ A 3 T0 12 INCH GAP MAY RESULT. 
003546 ENDFLG=. 
3 ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 
000 STAFLG:: .BYTE 0 sSTART FLAG - SET BY INIT CODE IF STARTING. 
000 PWRFLG:: .BYTE 0 — Swe FLAG - SET ONLY DURING INIT. 
000 TRAPD4:: .BYTE 0 TRAPED AT 4 FLAG | 
000 MISCFG:: .BYTE 0 ; MISCELLANEOUS FLAG | 
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; GLOBAL 


DATA SECTION 
2620 ; OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
sees ; SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 
2623 003552 000000 OPFLAG:: .WORD 0 sREAD ONLY OPERATOR FLAG WORD 
sos - EVEN 
2626 ;THE FOLLOWING IS THE COMMAND SEQUENCE TABLE. THE TABLE 
2627 sHAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 
5609 ;CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 
2630 003554 140004 CMDSEQ:: .WORD SCH ;SET CHARACTERISTICS. 
2631 003556 000040 -WORD CH.EAI 
2632 003560 000001 -WORD 1 
2633 003562 000000 -WORD O 
2634 003564 102010 CMDSE2:: .WORD RWD sREWIND. 
2635 003566 000001 -WORD 1 :BYTE COUNT. 
2636 003570 000001 -WORD 1 ;ONCE. 
2637 003572 000007 -WORD RANP ;PATTERN. 
2638 003574 104005 -WORD WRT ;WRITE. 
2639 003576 010000 -WORD DATCNT ;MAX BUFFER LENGTH. 
2640 003600 035230 -WORD 15000. 315000 RECORDS. 
2641 003602 000007 -WORD RANP sPATTERN - RANDOM DATA 
2642 003604 102010 -WORD RWD sREWIND 
2643 003606 000001 -WORD 1 sBYTE COUNT 
2644 003610 000001 -WORD 1 s;ONE ITERATION 
2645 003612 000007 -WORD RANP sRANDOM DATA 
2646 003614 104001 -WORD RDF sREAD FWD. 
2647 003616 010000 -WORD DATCNT sMAX BUFFER LENGTH. 
2648 003620 035230 -WORD 15000. 315000 RECORDS. 
2 003622 000007 -WORD  RANP RANDOM DATA 
2650 003624 102010 -WORD RWD sREWIND 
2651 003626 000001 -WORD 1 ;BYTE COUNT. 
2652 003630 000001 -WORD 1 ;ONCE. 
2653 003632 000007 -WORD ANP sPATTERN. 
2654 003634 -BLKW 4 sEXTENSION TO HOLD 1 MORE CMD. 
2655 003644 177777 SEQEND:: .WORD END sSOFT END OF SEQUENCE TABLE. 
2656 003646 177777 -WORD END 
2657 003650 177777 -WORD END 


2658 003652 177777 -WORD END 
2659 003654 177777 -WORD END sHARD END OF SEQUENCE TABLE. 
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100013 


177777 


CMDTBL: : 
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SEQ 0058 ! 


;THE FOLLOWING IS THE TK25 COMMAND TABLE 


-WORD DRI 
-WORD RDF 
-WORD ROR 
-WORD WRT 
-WORD WTV 
-WORD SRF 
-WORD SRR 
-WORD RNR 
-WORD RNF 
-WORD = RPF 
-WORD RPR 
-WORD WRR 
-WORD RWD 
-WORD MBR 
-WORD  WITM 
-WORD WTR 
-WORD SFF 
-WORD SFR 
-WORD GES 
-WORD ERS 
-WORD = UNL 
WORD CLN 
WORD SCH 
-WORD DIA 
-WORD = JMP 
-WORD OLY 
-WORD END 


;DRIVE INIT. 
sREAD FORWARD. 
sREAD REVERSE. 


;WRITE 
;WRITE/VERIFY. (WRITE ALL RECORDS, RDR AND 
# CHECK DATA ON ALL netonoe ) ROF AND 


3 REVERSE. 

;READ NEXT REVERSE. I.€., SPACE FWD, READ REVERSE. 

;READ NEXT FORWARD, I.€., READ FORWARD, SPACE REVERSE. 
;READ PREVIOUS FORWARD. I.E. » SPACE REVERSE, READ FORWARD 
;READ PREVIOUS REVERSE. I. E., READ REVERSE, SPACE FORWARD 
WRITE RETRY. 


sMESSAGE oy tan RELEASE 
s;WRITE TAPE MARK 
:WRITE TAPE MARK RETRY. 


: US. 
;ERASE 3 INCHES OF TAPE. 
sREWIND AND UNLOAD. 
;CLEAR TAPE. 
;SET CHARACTERISTICS. 
sDIAGNOSTIC COMMAND. 
;JUMP TO THE NTH COMMAND IN THE SEQUENCE. 
;DELAY "N" MS. 
;END OF COMMAND TABLE 


| GLOBAL 
GLOBAL 
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AREAS 
DATA SECTION 
003744 104 
003747 122 
3752 122 
003755 127 
003760 127 
003763 123 
003766 123 
003771 122 
003774 122 
003777 122 
004002 122 
004005 127 
004010 122 
004013 115 
004016 127 
004021 127 
004024 123 
004027 123 
004032 107 
004035 105 
004040 125 
004043 103 
004046 123 
004051 104 
004054 112 
004057 104 
004062 105 


114 
116 


111 CMDASC:: 
106 


131 
104 
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THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 


. ASCII 
-ASCII 


—, 


;DRIVE INIT. 
sREAD FORWARD. 
sREAD REVERSE. 


WRITE 
;WRITE/VERIFY. (WRITE ALL RECORDS, RDR AND CHECK DATA 
EC RDF AND i DATA ON ALL RECORDS. ) 


;0N ALL R 
;SPACE "N” RECORDS FORWAR 


3S 
;READ NEXT REVERSE. I.€., SPACE FWD READ REVERSE. 


;READ NEXT FORWARD, I.€., READ FORWARD, 


REVERSE. 


SPACE 
;READ PREVIOUS FORWARD. IE., SPACE REVERSE, READ FORWARD 


;REWIND. 
;MESSAGE SF taae 9 acne 
sWRITE TAP 
;WRITE TAPE HARK RETRY. 
;SPACE “N” FILES FORWARD. 
;SPACE "N” a ae 


iSET CHARACTERISTICS. WHERE BRF=200, 40, 
sSEE TK25 


ate Mevay REVERSE. IE., READ REVERSE, SPACE FORWARD 


20, 0. 
PROGRAMMING SPECIFICATION FOR DESCRIPTION. 


eta dts FB SEE TK25 PROGRAMMING SPECIFICATION 
BE USED TO LOAD DIAGNOSTIC DATA 


sFOR DESCRIPTION. ODT MUST 


sINTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED. 
; JUMP THE COMMAND 


TO THE NTH COMMAND IN 
sSEQUENCE TABLE, WHERE N IS DEFINED IN 
;THE # OF OPERATIONS. 
;DELAY "N” MS, WHERE N IS DEFINED IN 
;THE # OF OPERATIONS. 
;END OF COMMAND SEQUENCE. 
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GLOBAL TEXT SECTION SEQ 0060 


Bhs -SBTTL GLOBAL TEXT SECTION 


2738 ; "THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
2739 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
Stat ; MORE THAN ONE TEST. 


Stas ; FORMAT STATEMENTS USED IN PRINT CALLS 


2754 -NLIST BEX 
2756 004066 045 116 045 CODELM:: Pe /SNSAUNIT #D18A TK25 CODE LEVEL PsO3sNsN/ 


-EVEN 
2758 004136 130 130 130 HALTM:: .ASCIZ /XXX CMD - TYPE <CR> TO CONTINUE/ 
2759 004176 103 115 104 CMDPKM: : Ps /CMD PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD!/ 


60 ° 
2761 004260 104 101 124 WTVERM:: .ASCIZ /DATA COMPARE ERROR/ 
2762 004303 116 117 040 TOERM:: .ASCIZ /NO TK25 RESPONSE/ 
2763 004324 125 116 104 SCERM:: .ASCIZ /UNDEFINED SPEC COND/ 
2764 004350 122 106 103 RFCERM:: .ASCIZ /RFC NON ZERO/ 
2765 004365 124 113 062 NSSRM:: .ASCIZ /TK25 NOT READY/ 
2766 004404 122 105 124 RLEXM:: .ASCIZ /RETRY LIMIT EXCEEDED/ 
2767 004431 125 116 111 ATTNM:: .ASCIZ /UNIT OFF LINE/ 
2768 004447 106 125 116 FUNRM:: .ASCIZ /FUNCTION REJECT/ 
2769 004467 106 101 124 FATSM:: .ASCIZ /FATAL SUBSYSTEM ERROR/ 
2770 004515 116 117 040 NOINTM:: .ASCIZ /NO INTERRUPT/ 
2771 004532 124 101 120 TSAM:: .ASCIZ /TAPE STATUS ALERT/ 
2772 004554 124 117 117 TOOMM:: .ASCIZ /TOO MANY INTERRUPTS/ 
2773 004600 103 101 120 RNYM:: .ASCIZ /CAPSTAN RUNAWAY-GET STATUS RESULTS :/ 
2774 004644 122 105 103 RERM:: .ASCIZ /RECOVERABLE ERROR/ 
2775 004666 125 116 122 URERM:: .ASCIZ /UNRECOVERABLE a 
2776 004712 045 116 045 DROPDM:: .ASCIZ /#NSADROPPED UNIT #D18N 
2777 004741 045 116 045 AUDRPM:: .ASCIZ /s#NSAALL UNITS DROPPEDSNSN/ 
2778 004773 045 116 045 DTAER2:: .ASCIZ “SNSABYTE: SD4SSQSAWAS : SB8%S28AS/B : BERN” 
2779 005042 045 104 064 DOTAER3:: .ASCIZ “#D48A BYTES IN ERROR OUT OF #D4sN" 
2780 005104 045 101 116 DTAER4:: .ASCIZ /#ANO DATA READSN/ 
2781 005125 045 101 122 DTAERS:: .ASCIZ /#ARECORD TOO LONG: ged +a 
2782 005167 045 101 122 NURTY1:: .ASCIZ /#ARECOVERED ON RETRY #sD2s 
2783 005223 045 101 125 OFLINM:: .ASCIZ /SAUNIT #D1#A OFF LINESN/ 
2784 005253 045 101 = Ht ale .ASCIZ — STATUS CMD RESULTS: #N/ 


C T err 
2786 005312 045 116 045 CRLFSP:: .ASCIZ /#NSS7/ 
2787 005320 045 116 045 RAMFHR: .ASCIZ '‘SNSA #*eeeeee¢% CONTROLLER RAM DUMP seeeeeee0%! 
2788 005377 045 116 045 RAMIOP: .ASCIZ '‘sN#SA RAM ADDRESS COCTAL) = #038A - #03sN’ 
2789 005450 045 101 040 RAMPD: .ASCIZ ‘SA #S038A ' 
aver 005462 045 116 045 RAMLIN: .ASCIZ ‘'sNsNSN’ 


immense 
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010237 
010337 


010437 
004737 


013702 
010337 
013703 
013704 
013746 


104423 


ERROR REPORT SECTION 


003446 
006674 


006560 
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-SBTTL GLOBAL ERROR REPORT SECTION 


ee ee 


OBAL ERROR REPORT ale Slam Rte tank AND _PRINTX CALLS 


BGNMSG 
“"PRINTB #STAER1,DEVTBL(RS),PASCNT(RS),RECCNTCRS) 


PRINTB 


; THE GL 
; THAT ARE USED IN MORE THAN ONE TEST 
; THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 


DTAERM 


#STAER7 


LET RECRED := R2 
LET TIME1 := R3 

LET TIME2 := R4 

JSR PC,RECTAP 


LET R2 


:= RECRED 


LET RECRED := R3 


LET R3 
LET R4 
PRINTB 


EXIT 


-EVEN 


ENDMSG 


:= TIME1 
:= TIME2 


#STAER6 ,RECRED 


MSG 


MOV 
sRETRIEVE RECORD READ 
sRESTORE R2 


MOV 
sSAVE RECORD READ 


MOV 
sPRINT RECORD READ 


NCLUDES THE ASCII MESSAGES 


MOV RECCNT(RS),-(SP) 
MOV PASCNT(RS),-(SP) 
MOV DEVTBL(RS),-(SP) 
MOV #STAER1, -(SP) 
MOV #4,- 

V SP, 
TRAP C$PNTB 

DD #12,SP 


MOV #STAER7, -(SP) 
MOV a 


MO 2RO 
TRAP C$PNTB 
ADD #4,SP 
R2,RECRED 

R3, TIME 


R4, TIME2 


RECRED ,R2 

R3,RECRED 

TIME1 ,R3 

TIME2 ,R4 

MOV RECRED, -( SP) 


MOV #STAERG, -( SP) 
MOV a 


MOV SP,RO 
TRAP C$PNTB 
ADD #6 ,SP 
WORD 


. J$JMP 
-WORD 1L10002-2-. 


TRAP C$MSG 
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GLOBAL ERROR REPORT SECTION 


00 
2828 
00 


00 
2835 
00 


2836 


2837 


2838 
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010337 
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013746 
013746 
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177740 
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BGNMSG STAERM 
STAERM: : 


PRINTB #STAER1,DEVTBL(RS),PASCNT(RS),RECCNTC(RS) 


PRINTB #STAER7 


LET R2 := CMDPKT CLR.BY #177740 


LET R2 := R2 - #1 

IF R2 EQ #0 THEN 
JSR PC,RECTAP 
LET RECRED := R3 
PRINTB #STAER6,RECRED 


ENDIF 
PRINTX #STAER2 


MOV 
BIC 
DEC 
;IF CMD IS A READ 
TST 
; THEN RETRIEVE 
; AND 


MOV 
;TYPE RECORD READ 


50000$: 


PRINTX #STAER4,CMDPKT+2,CMDPKT+4,CMDPKT+6 


ea a ES 


SEQ 0062 
MOV CNT(RS),-(SP) 
MOV PASCNT(R5), -(SP) 
MOV DEVTBL(RS),-(SP) 
MOV @STAER1, -( SP) 
MOV 04,-(SP) 
MOV SP.RO 
TRAP  CSPNTB 
ADD #12,SP 
MOV @STAERT, -(SP) 
MOV #1,-(SP) 
MOV SP RO 
TRAP  CSPNTB 
ADD 04,SP 
CMDPKT ,R2 
$177740,R2 
R2 
R2 
50000$ 
R3,RECRED 
MOV RECRED, -(SP) 
MOV @STAERG, -( SP) 
MOV (SP) 
MOV , 
TRAP CS$PNTB 
ADD 96,SP 
MOV @STAER2, -( SP) 
MOV #1,-(SP) 
MOV SP.RO 
TRAP C$PNTX 
DD 84,SP 
MO CTCC,-(SP) 
MOV TSSREG, -(SP) 
MOV MSGPKT -MS RFC, -(SP) 
MOV @TSDB(RS), -(SP) 
MOV CMDPKT, -(SP) 
MOV @STAERS, -( SP) 
MOV 06,-(SP) 
MOV *RO 
TRAP CS$PNTX 
ADD #16,SP 
MOV CMDPKT <6, -(SP) 
MOV CMDPKT-4, -( SP) 
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GLOBAL ERROR REPORT SECTION SEQ 0063 
006062 013746 002316 MOV CMDPKT +2, -(SP) 
006066 012746 006445 MOV @STAER4, -(SP) 
006072 012746 000004 MOV 04, (SP) 

006076 010600 MOV 
006100 104415 TRAP eabnrx 
006102 062706 000012 ADD 612,SP 
2839 006106 PRINTX @STAERS,MSGPKT+MS.XSO,MSGPKT+MS.XS1,MSGPKT+MS.XS2,MSGPKT-MS_XS3 
006106 013746 002354 MOV MSGPKT -MS.xS3, -(SP) 
006112 013746 002352 MOV MSGPKT «MS .XS2.-(SP) 
006116 013746 002 MOV MSGPKT «MS .XS1.-(SP) 
006122 013746 002 MOV MSGPKT «MS .XS0. -(SP) 
012746 006465 MOV @STAERS, -(SP) 
006132 012746 000005 MOV 05,-(SP) 
0 MOV 
006140 104415 TRAP C$PNTX 
006142 706 000014 ADD 614,SP 
2840 006146 EXIT ~° MSG 
006146 000167 .WORD J$UMP 
aa 006150 000410 “WORD 1L10003-2-. 
2842 .NLIST BEX 
2843 006152 045 101 130 STAERI: -ASCIZ /#AXXX CMD FAILED - UNIT #D1sS3sAPASS:sDS8S3SARECORD: SDSSN/ 


2845 006244 045 101 120 STAER7: .ASCIZ /sAPREVIOUS CMD WAS XXX/ 

2846 006274 045 123 061 STAER6: .ASCIZ /#S11sA* RECORD READ: sD5sA 

2847 006330 045 116 045 STAER2: .ASCIZ /ANAACHOPKTASZMATSBARS4RARF CHSSHATSSRAS3KATCCHN/ 
2848 006407 045 117 066 STAER3: .ASCIZ An = 9+ age %S28068S28068S28D18N 

2849 006445 045 117 066 STAER4: .ASCII /s06sN 


2850 006452 045 117 066 - ASCII /A068N/ 
2851 006457 045 117 066 -ASCIZ /#065N 
2852 006465 045 101 130 STAERS: .ASCII 7SAXSTONS4KAXST1NS4KAXST2NS4NAXST3AN/ 
2853 006530 045 117 066 -ASCIZ /8068S28068S28068S28068N/ 
2854 -LIST BEX 
2855 -EVEN 
cone 006560 000000 RECRED: .WORD 0 sRECORD READ FROM TAPE 
2858 006562 ENDMSG 
562 L10003: 


006 
006562 104423 TRAP C$MSG 


ne rm ee 


rt a ee ee ee ee ee a 


003506 


000340 
000000 


003510 


000340 
000000 


003512 


000340 
000000 


i enectietieeticaranealliceadienteaednetenaneentiaienttiiteemmmtiaeementia 
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GLOBAL SUBROUTINES SECTION 


SEQ 0064 
- SBTTL GLOBAL SUBROUTINES SECTION 
+< THE GLOBAL SUBROUTINES 2 ¥ ee THE SUBROUTINES 


; THAT ARE USED IN MORE THAN 
adi 


F MODULES TO HANDLE TK25 INTERRUPTS. 
BGNSRV TS4INO :DEVICE 0. 
TS4INO: : 
LET INTFLG :=* INTFLG + @1 ;SET INTERRUPT OCCURRED FLAG. 
INC INTFLG 
ENDSRV #0 
L10004: 
BICB 0340,2(SP) 
BI 00,2(¢SP) 
RTI 
Teena BGNSRV TS4IN1 sDEVICE 1. 
LET INTFLGe2 := INTFLG+2 + @1 :SET INTERRUPT OCCURRED FLAG. 
INC INTFLGe2 
ENDSRV #0 
L10005: 
BICB 0340,2(SP) 
BISB #0,2¢SP) 
RTI 
BGNSRV TS4IN2 ;DEVICE 2. 
TS4IN2:: 
LET INTFLGe4 := INTFLG+4 + @1 ;SET INTERRUPT OCCURRED FLAG. 
INC INTFLG-4 
ENDSRV #0 
L10006: 
BICB #340 ,2(SP) 
BISB #0,2(SP) 
RTI 
BGNSRV TS4IN3 ;DEVICE 3. 
TS4IN3:: 
LET INTFLG*6 := INTFLG-6 + #1 ;SET INTERRUPT OCCURRED FLAG. 
INC INTFLG+6 
ENDSRV #0 
L10007: 


ietalenneesnentnentinesnndtitindaeetieee ttn eee + ee ~~ 
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2892 006674 
006674 


006702 
2893 006704 
704 


2910 
2911 006770 


N5 
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032737 
001430 


013702 
063702 


032702 
001417 


005202 


111203 
142703 


000303 
005302 


105737 
001401 


005302 


111204 
142704 


050403 
000401 


011203 


000402 


017703 


000207 


177400 


003536 


177400 


174426 


; PRINTS. 

- OUTPUTS: R3 = RECORD COUNT READ 
; REGISTERS: R2, R3, 

; CALLS: 


RECTAP:: IF @MO0D.CO SETIN CMDWRD THEN sREAD REV FETCH art 


BEQ 

LET R2 :* MSGPKT+MS.RFC + DATARD ;FIND LAST a * AD. 
ADD 

IF @#BIT00 SETIN R2 THEN s000 AD., ——— 


BEQ 
sREC COUNT STARTING 
;WITH UPPER 


LET R2 := R2 + #1 
LET R3 :B= (R2) CLR.BY #177400 


BICB 
LET R3 := SWAP R3 ; 
SWAB 
LET R2 :* R2 - #1 sLOWER BYTE AD. vec 
IFB SWBFLG NE #0 THEN 
TSTB 
BEQ 
LET R2 :* R2 - #1 sLOWER BYTE AD. co 
ENDIF 
50003$ 
LET R4 :B= (R2) CLR.BY #177400 ;FETCH LOWER a 
BICB 
LET R3 := R3 OR R4 sMERGE BYTES 
BIS 
ELSE 
BR 
50002$ 
LET R3 := (R2) sEVEN AD. FETCH 
MOV 
. ENDIF 
50004$ 
ELSE 
BR 
50001$ 
LET R3 := @DATARD sREAD FWO FETCH 
MOV 
ENDIF 
50005$ 
RTS PC 


Re 
BYTE FETCH 
MOVB R2), 


SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 


@MOD . CO, CHOWRD 
50001 $% 


MSGPKT +MS .RFC ,R2 
DATARD ,R2 


#BIT00,R2 
50002$ 


( R3 
$177400,R3 
R3 

R2 


SWBFLG 
50003$ 


Re 


(R2),R4 
#177400 ,R4 
R4,R3 


50004$ 


(R2),R3 


50005$ 


@DATARD ,R3 


SEQ 0065 


-—-——— ee ee ere nnn eae eee — ieee le 
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2914 3 SUBROUTINE TO STORE A SET ment TEREST IC COMMAND AS 
2915 F THE FIRST ENTRY IN THE SEQUENCE TABLE. 
2916 3 INPUTS: 
2917 : OUTPUTS: 
2918 3 REGISTERS: 
$333 : CALLS: 
2921 006772 SETCH:: LET R1 := @CMDSEQ sINIT COMMAND — TABLE POINTER. 
006772 012701 003554 SE 
2922 006776 012721 140004 MOV @SCH,(R1)-+ sTHIS CODE SETS UP. A SET CHARACTERISTIC 
2923 007002 012721 000040 MOV ODF TSCH, (R1)> ;COMMAND AS THE FIRST COMMAND IN THE 
2924 007006 012721 000001 MOV #1,(R1)+ sSEQUENCE TABLE. 
2925 007012 005721 TST (R1)- ;SKIP PATTERN LOCATION. 
2926 007014 000207 RTS PC 
2927 
2928 
5980 
2931 3 SUBROUTINE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 
2932 3 INPUTS: 
2933 F OUTPUTS: 
2934 3 REGISTERS: 
2935 : CALLS: 
2936 
007016 012721 102010 MOV #RWD,(R1)+ 
2938 007022 LET (R1)+ := #1 ;BRF. 
007022 012721 000001 MOV #1,(R1)-+ 
2939 007026 LET (R1)+ := #1 :# OF OPERATIONS. 
007026 012721 000001 MOV #1,(R1)-+ 


2940 007032 005721 TST (R1)- ;SKIP -“ eleerae 


i 
| 

| 

2937 007016 SETRW:: LET (R1)+ := @RWD CMD = REWIND. 
2941 007034 000207 RTS PC sRETUR 


TTT TEE EE TT 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2943 


2952 
2953 


04 
007210 


C6 
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012701 


023727 
001031 


105737 
001026 


063737 
063737 
013737 
043737 
sd 
012737 


013737 


004737 
004737 


012702 
004737 


003554 


177777 
010000 


003420 
007672 
003533 


003426 


003534 


003442 
003440 
003442 
003436 
003424 


000022 


003424 


007332 
020274 


000001 
017666 


003422 


104005 


003440 
003442 
003424 
003424 
000022 


003424 


002322 


EXALL:: 


Swine TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 


R2 = TERMINATION INDICATOR (O=END OF TABLE,1=E0T) 
CMDAC , SETUP ,EXSUB, CKHAE ,NEXTU,FIRSTU, VFYDAT. 
sINIT SEQUENCE — POINTER. 


OUTPUTS: 
REGISTERS: 
CALLS: 
LET R1 := @CMDSEQ 
WHILE (R1) NE #END DO p 
CMP sé C21.) , @END 
BEQ 50007$ 
JSR PC, SETUP ;GO SETUP THE COMMAND BLOCK. 
WHILE NCNT LT NCNT1 DO ;WHILE THERE ARE RECORDS REMAINING: 
CMP NCNT ,NCNT1 


BGE 50011$ 
JSR PC, CMDAC sSTORE CMD ASCII IN ERROR MESSAGE. 
IFB RANDOM NE #0 THEN :IF IN RANDOM MODE: 
TSTB RANDOM 
BEQ 50012$ 
IF CMDWRD EQ @#WRT THEN :IF CMD IS A WRITE THEN: 
CMP CMOWRD , WRT 
BNE 50013$ 
IFB VFYFLG EQ #0 THEN ;IF DATA IS NOT TO BE VERIFIED THEN: 
TSTB VF YFLG 
50014$ 


LET RANB := RANB + RANS ;GENERATE 
LET RANS := RANS + RANB ;RANDOM 

ADD RANB ,RANS 
LET BRFCNT := RANS ;LENGTH 

MOV RANS , BRF CNT 
LET BRFCNT := BRFCNT CLP.SY LENMSK ;MASK RANDOM LENGTH 
IF BRFCNT LT #18. THEN 


ADD RANS , RANB 


SCMDSEQ,R1 
;WHILE THERE ARE CMOS IN THE SEQUENCE TABLE. 


SEQ 0067 


ee ee 


EE 


BIC LENMSK , BRF CNT 
;D0 NOT ALLOW BYTE COUNT OF LESS THAN 18. 
CMP BRFCNT #18. 


BGE 
LET BRFCNT := #18. ;CHANGE COUNT OF 0-17 TO 1 
MOV ois: »BRFCNT 
ENDIF 
50015$: 
LET CMDPKT+CP.CNT := BRFCNT ;MOVE BRF TO CMD PACKET. 
MOV BRFCNT ,CMDPKT+CP.CNT 
ENDIF 
50014$: 
ENDIF 
50013$: 
ENDIF 
50012$: 
JSR PC,EXSUB sISSUE CMD TO ALL, AWAIT INTs. CHECK STATUS. 
JSR PC,CKHAE ;CHECK HALT AFTER EACH CMD FLAG. 
LET R2 := #1 ;SET ALL UNITS AT BOT/EOT. 
MOV #1,R2 
JSR PC,FIRSTU sFIND FIRST UNIT 


WHILE DEVTBL(RS) NE #END DO ; ;WHILE THERE ARE MORE UNITS: 


eee ae ee + 


| GLOBAL AREAS 
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007216 
2974 007220 
007220 
007226 
2975 007230 
0072 
00 
2976 
2977 
2978 


2979 


2 a a coe 
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D6 


50016$: 
026527 002536 177777 CMP SH eal ten 
001426 BEQ 50017 
IF #MO0D.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
032737 000400 003426 BIT #M0D .CO, CMDWRD 
001406 BEQ 
IF #X0.BO0T NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT THEN: 
032765 000002 003516 BIT #X0.BOT,EOTFLG(RS) 
001001 BNE 21$ 
LET R2 := #0 ;CLEAR EOT/BOT FLAG. 
005002 CLR Re 
ENDIF 
50021$: 
ELSE ;ELSE IF CMD IS NOT REVERSE: 
000411 50022 
IF #X0.EO0T NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMDWRD THEN 
032765 000001 003516 BIT #X0.E0OT ,EOTFLGCRS) 
001404 BEQ 5003 
032737 000001 003426 BIT #CMD ..CO, CMDWRD 
001001 BNE 50024$ 
50023$: 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
LET R2 := #0 ;CLEAR EOT/BOT FLAG. 
005002 CLR Re 
ENDIF 
50024$: 
ENDIF 
50022$: 
004737 017734 a. PC,NEXTU sFIND NEXT UNIT 
000746 50016$ 
50017$: 
IF R2 EQ #1 THEN ;IF ALL UNIT ARE AT EOT/BOT THEN: 
020227 000001 CMP R2,#1 
001001 BNE 50025$ 
000412 BR EXARTN ;RETURN WITH R2 = #1. 
ENDIF 
500253: 
LET NCNT := NCNT «+ #1 ;UPDATE RECORD COUNT. 
005237 003420 NC NCNT 
LET PCMDWD := CMDWRD ;SAVE PREVIOUS COMMAND WORD. 
013737 003426 003432 meee MOV CMDWRD , PCMDWD 
000656 ee, 50010$ 
004737 016530 JSR PC, VFYDAT ;IF LAST CMD WAS A WRITE VERIFY, pan GO 
;VERIFY THE LAST N RECORDS OF DATA 
ENDDO 
000646 
50007$: 
LET R2 := #0 ;SET NORMAL RETURN INDICATOR. 
005002 CLR Re 
000207 EXARTN: RTS PC ;RETURN. 


ininigipentmel 


TT TTT TTT SS ee ae 


ee ee ee 
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3007 007332 004737 
336 

007336 026527 

001465 

007346 032737 


7354 001421 


7356 032765 
7364 001014 


7366 032765 
001406 


007376 105737 


7416 000435 


7420 023727 
007426 001011 
007430 032765 
007436 001405 


007440 016537 
7446 005077 


007452 032765 
007460 001404 
007462 032737 
007470 001003 


3026 


017666 


002536 


000400 


000002 


000001 


003543 
010774 


010774 


003434 
000002 


002550 
174054 


000001 
000001 


177777 


003426 


003516 


003516 


000002 
003516 


003526 


003516 
003426 





E6 


SEQ 0069 
F SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 
; ALL INTERRUPTS, AND CHECK ALL STATUS. 
: INPUTS: 
3 OUTPUTS: 
; REGISTERS: 
; CALLS: EXCUTE ,GOWAIT ,NEXTU,FIRSTU. 
EXSUB: : JSR PC,FIRSTU ;SET UP FOR FIRST UNIT. 
WHILE DEVTBL(RS) NE #END DO ;WHILE THERE ARE MORE DEVICES: 
cP DEVTBL (RS), #END 
IF #MOD.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
IT SH100 CO. CHDURD 
IF #X0.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT 
BIT #X0..BOT ,EOTFLGCRS) 
IF #X0.E0T SETIN EOTFLG(RS) THEN ;BUT IF AT EOT 
err #X0.E0T,EOTFLGC(RS) 
IFB ALLEOT NE #0 THEN ;AND ALL OTHERS AT EOT 
TSTB.—s ALLEOT 
BEQ 50033 
JSR PC,EXCUTE ; THEN EXECUTE REV CMD 
NDIF ;IF NOT ALL AT EOT, FREEZE UNIT(S) AT EOT 
ELSE ;IF NOT AT BOT AND 
BR 50034$ 
50032$: 
JSR 9C,EXCUTE ;NOT AT EOT, EXEC REV CMD 
ENDIF 
50034$: 
ENDIF 
50031$: 
ELSE ;ELSE IF CMD IS NOT REVERSE: 
BR 50035$ 


50 : 
IF CMDLG EQ #2 AND #X0.BOT SETIN EOTFLG(RS) THEN 
CMP CMOLG, #2 
BNE 50036$ 
BIT #X0.BOT, EQTFLGC(RS) 


BEQ 5 
sCLEAR BAD SPOT COUNTS WHEN WRITING FROM BOT 
LET BTPT := BTADDR(RS) 
MOV BTADOR(RS),BTPT 


LET @BTPT := #0 
CLR aBTPT 
ENDIF 


50036$: 
IF #X0.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO ie CMDWRD THEN 
ase eeaeaes »EQTFLGCRS) 


50037 
BIT #CMD .CO, CMDWRD 
50040$ 


50037$: 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 


—-—-—_-———.. 
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GLOBAL SUBROUTINES SECTION 
3027 007472 004737 010774 
3028 007476 

007476 000405 

007500 


3029 007500 
007500 105737 003543 


007504 
3030 007506 004737 010774 
| 


3034 007512 004737 017734 
007516 000707 


007520 105737 003535 
001403 


7526 105037 003535 
007532 104424 


3040 007534 004737 017666 
007540 026527 002536 


007546 001450 


007550 032737 000400 
007556 001421 


007560 032765 000002 

001014 

007570 032765 000001 
001406 


007600 105737 003543 
011470 


049 007614 004737 011470 


007620 000420 


177777 


003426 


003516 


003516 


JSR PC,EXCUTE ;ISSUE CMD TO 
ELSE 
IFB ALLEOT NE #0 THEN 
JSR PC,EXCUTE 
ENDIF 
ENDIF 
ENDIF 
JSR PC,NEXTU sFIND NEXT UNIT 
ENDDO 


IFB RPTFLG NE #0 THEN 


TK2S. 


BR 50041$ 
50040$: 


TSTB ALLEOT 

BEQ 50042$ 

50042$: 

50041$: 

50035$: 

IN TEST CYCLE. 
50026$ 


B 
50027$: 

;IF REPORT HAS BEEN REQUESTED THEN: 
TSTB RPTFLG 


BEQ 50043$ 
LET RPTFLG :B= #0 ;CLR THE FLAG, 
CLRB RPTFLG 
DORPT sPRINT THE PERFORMANCE REPORT. 
noir TRAP C$DRPT 


JSR PC, FIRSTU 


50043$: 
sSET UP _FOR FIRST UN 


UNIT. 
WHILE DEVTBL(RS) NE #END DO ;WHILE THERE ARE MORE DEVICES: 


IF #M0D.CO SETIN CMDWRD THEN 


BEQ 
IF #X0.BOT NOTSETIN EOTFLGC(RS) THEN - AT BOT 


IF #XO.EOT SETIN EOQTFLGCRS) THEN 
IFB ALLEOT NE #0 THEN 
JSR PC,GOWAIT 
ENDIF 
ELSE 
JSR PC, GOWAIT 
ENDIF 


ENDIF 
ELSE ;ELSE IF CMD IS 


BEQ 
sIF CMD IS REVERSE THEN: 
BIT 


CMP DEVTBL(RS), #END 
0045 
HOD .CO. CHDWRD 


#X0.BOT ,EOQTFLGCRS) 

BNE Fe ed $ 
;BUT IF AT EOT 

BIT #X0.EOT ,EOTFLG(RS) 

BEQ 50050$ 

sAND ALL OTHERS AT EOT 

TSTB ALLEOT 

BEQ 50051$ 

;THEN WAIT FOR CMD END 

3IF NOT ALL AT EOT, DO NOT WAIT 

50051$: 

;NOT AT BOT, AND NOT AT EOT 

BR 50052$ 

50050$ : 


sWAIT FOR INT,CHECK STATUS. 


50052$: 


50047$: 
FORWARD: 
BR 50053$ 


| GLOBAL AREAS 


3053 007622 


3054 
3055 007642 
3056 00 


3062 007662 
3063 007666 


007670 
3064 007670 


ee ee 
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032765 
001404 
032737 
001003 


004737 
000405 


105737 
001402 
004737 


004737 
000724 
000207 


000001 
000001 


011470 


003543 
011470 


017734 


003516 
003426 





G6 


50046$: 
IF #X0.EOT NOTSETIN EOTFLGC(RS) OR OO .C9 OTSET IN CMDWRD T 


JSR PC,GOWAIT 
ELSE 


IFB ALLEOT NE #0 THEN 


JSR PC,GOWAIT 
ENDIF 


ENDIF 
ENDIF 
JSR 

ENDDO 


RTS PC 


PC ,NEXTU 


BEQ 
BIT 
BNE 


HEN 
#X0.EOT ,EOTFLGCRS) 
50054$ 
#CMD .CO, CMDWRD 
50055$ 


50054$: 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
;WAIT FOR INT,CHECK STATUS. 


sFIND NEXT UNIT 


* |RETURN. 


BR 
50055$: 


TSTB 
BEQ 


50056$ 


ALLEOT 
50057$ 


50057$: 
50056$: 


50053$: 
IN TEST CYCLE. 


BR 
50045$ 


50044$ 


“GLOBAL AREAS 


ee — —— Se 
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112337 
112337 
111337 
000207 


005003 


026304 
001403 
062703 


000772 


0627 
000207 


‘GLOBAL SUBROUTINES SECTION 


003656 


000002 


003744 


CMDAC: : 


GCMDA: : 


THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 
COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMDWRD 
wae CURRENT CMD AND LOCATION PCMDWD CONTAINS PREVIOUS CMD. 


OUTPUTS: 
REGISTERS: R3, R4. 
CALLS: GCMDA 
LET R4 := CMDWRD sR4 = CMD BINARY. 
CMDWRD ,R4 
JSR PC ,GCMDA ;GET CMD ASCII. 
MOVB (R3)+,STAERI+2 sMOVE CMD ASCII 
MOVB (R3)+,STAERI+3 
VB (R3),STAERI+4 SINTO MSG. 
LET R4 := PCMDWD 3R4 = PREVIOUS CMD BINARY. 
PCMDWD ,R4 


;GET CMD ASCII. 


sMOVE CMD ASCII 
MOVB (R3)+,STAER7+24 


os PC ,GCMDA 
LET STAER7+24 :B= (R3)+ 


LET STAER7+25 :B= (R3)+ : 

MOVB (R3)+,STAER7+25 
LET STAER7+26 :B= (R3) sINTO MSG. 

MOVB (R3), , Ld 
RTS PC ;RETURN. GO EXECUTE NEXT FUNCTION. 


SUBROUTINE TO FIND THE ASCII EQUIVILENT a THE COMMAND IN R4. 
oS OF ASCII 1ST WORD IS RETURNED IN R3. 


INP PRESENT COMMAND W WORD. 
OUTPUTS: R3 = ADDRESS OF PRESENT COMMAND ASCII. 
REGISTERS: 
CALLS: 
LET R3 := #0 ;INIT CMD TBL ryt. as 
WHILE CMDTBLC(R3) NE R4 DO sUNTIL CURRENT CMD IS FOUND: 
50060$ : 
CMDTBL(R3),R4 
BEQ 50061$ 
LET R3 := R3 + #2 ;SEARCH CMD TABLE. 
ADD #2,R3 
ENDDO 
BR 50060$ 
50061$: 
LET R4 := R3 
MOV R3,R4 
LET R3 := R3 SHIFT -1 ;POINT TO ASCII oa ne 
ADD R4,R3 
ADD #CMDASC ,R3 
RTS PC ;RETURN. 


ee e 


ei 


AL AREAS 


3148 010202 


————— A 





16 
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023727 
001003 


012737 
010203 
162703 
001017 
013737 
032737 
001404 
012737 
000403 


012737 


012737 
012737 


011137 
000412 
010203 
162703 

1006 


00 
012737 
012737 


SUBROUTINES SECTION 


00 
002314 
177740 


000010 
002316 


002314 
000002 
000001 


003416 
000400 


000004 
000006 


000004 
002446 
000010 
002454 


000006 


000020 
003414 


100011 


003434 


002316 
002314 


003434 


003434 


002316 
002322 


002322 
002316 


SETUP: : 


2$: 


1$: 


4$: 





SUBROUTINE LOADS ie COMMAND PACKET FROM ONE 


THIS 
ENTRY IN THE SEQUENCE 
INPUTS: 


OUTPUTS: 

REGISTERS: R2, R3. 
CALLS: GENPAT. 
LET CMDLG := #0 

MOV CR1)+, CMDPKT 

MOV (R1), eRDPKT cP. CNT 
MOV (R1),BRFCNT 

MOV CHOI Re 

BIC #NCMD.C,R2 

MOV 


R2,R 
SUB #CMD.C3,R3 
BNE 2$ 
ey (R1),CMDPKT+2 
IF CMDPKT EQ #WTM THEN 


LET CMDLG := #2 
ENDIF 
R2,R3 
SUB + eset »R3 


DATARD , CMDPKT+CP . ADL 
“ aon. CO SETIN CMDPKT THEN 


LET CMOLG := #4 


ELSE 
LET CMDLG := #6 
ENDIF 
BR 3$ 
MOV R2,R3 


SUB #CMD.C2,R3 
LET CMDPKT+CP.ADL := #SCHBK 


MOV #SCHCNT, CMDPKT+CP.CNT 
LET SCHBK+6 := (R1) 


R2,R3 
SUB SO .C1108.C2.85 


NE 
MOV #DIACNT ,CMDPKT+CP.CNT 
MOV #DIABLK , CMDPKT+CP. ADL 


sCLR CMD LOGGING CIDE OT SASLES LOGGING ) 
CLR CMOLG 


sLOAD THE COMMAND WORD. 


sLOAD THE BYTE/RECORD/FILE COUNT. 
S COMMAND. 


# SAVE BRF FOR THI 
TC 


;CLR ALL BUT CMD BITS. 
: SAVE IT TWICE. 
sPOSITION COMMAND? 


ES 


;BR IF NOT. 
;MOVE BPCR IN 2ND PKT WORD FOR POSITION CMD. 


;IF CMD IS A WRITE TAPE MARK THEN: 
CMP CMDPKT, 


BNE 
;WTM LOGGING _ IS 2. 


50062$: 
IS IT A READ? 
;BR IF NOT. 
IF SO, LOAD THE BUFFER ADDR. 
;IF CMD IS A —_ THEN: 


#MOD .CO, CMHDPKT 


BEQ 50063$ 
sLOGGING CODE IS 4. 


MOV 
sELSE - IF CMD IS A READ FWD: 
BR 50064 


#4, CMDLG 


5 : 
;LOGGING CODE IS 6. 
MOV 
50064$: 
; CONTINUE. 
:IS IT 
—_ = CHARACTERISTICS CMD? 
;SET UP ADR LO “HOV SET CHAR. 
;SET BUFFER EX 


+ CONTINUE. 
iA sos he (DIA) CMD? 
F NOT. 


‘POAD BUFFER EXTENT. 
;LOAD BUFFER ADR LOW. 


#2,CMDLG 


#6, CMDLG 


#SCHBK , CMDPKT +CP. ADL 


TENT 
sSTORE CHARACTERISTIC CODE IN SCH BLOCK. 
MOV (R1),SCHBK +6 








a | 


JO 
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10346 
3172 010354 000207 RTS PC sRETURN. 


| GLOBAL SUBROUTINES SECTION SEQ 0074 : 
3149 010210 005721 34: TST (R1)+ sPOINT TO N CNUMBER OF TIMES TO EXECUTE THIS INSTRUC 
3150 010212 LET NCNT1 := (R1)+ ;SAVE NUMBER OF RATIONS 
010212 012137 003422 MOV (R1)+,NCNT1 
3151 910216 LET NCNT := #0 ;CLEAR OPERATION COUNTER. 
010216 005037 003420 NT 
3152 010222 012137 003454 MOV (R1)+,PATERN ;SAVE_PATTERN CODE FOR CURRENT CMD. 
3153 010226 010203 MOV R2,R3 ;IS IT i 
3154 010230 162703 000005 SUB #CMD.CO!CMD.C2,R3 3A WRITE? 
3155 010234 001010 BNE S$ ;BR IF NOT. i 
3156 010236 013737 003414 002316 MOV DATAWT , CMDPKT+CP. ADL sLOAD WRITE BUFFER LO ORDER. 
3157 010244 004737 010356 JSR PC,GENPAT ;GO_ GENERATE THE WRITE PATTERN. | 
3158 010250 LET CMDLG := #2 ;sWRITE LOGGING CODE IS 2. 
010250 012737 000002 003434 MOV #2, CMDLG 
3159 010256 S$: IF #VFY.C SETIN CMDPKT THEN ;IF DATA VERIFICATION IS gREQUIRED: 
010256 032737 000100 002314 BIT Y.C,CMDPKT 
010264 001407 50085 
3160 010266 LET VFYFLG :B= #1 ;SET VERIFY FLAG. 
010266 112737 000001 003534 VB #1,VFYFLG 
3161 010274 042737 000100 002314 BIC #VFY.C,CMDPKT ;CLEAR VERIFY BITCNOT USED BY. HARDWARE ). 
3162 010302 ELSE ;IF DATA VERIFICATION IS NOT REQUIRED: 
010302 000402 BR 50066$ 
010304 50065$ : 
3163 010304 LET VFYFLG :B= #0 ;CLR VERIFY FLAG. 
010304 105037 003534 CLRB VF YFLG 
3164 010310 ENDIF 
010310 50066$ : 
3165 010310 LET PCMDWD := CMDWRD sSAVE PREVIOUS CMD WORD. 
010310 013737 003426 003432 MOV CMDWRD , PCMDWD 
3166 010316 LET CMDWRD := CMDPKT sSAVE PRESENT CMD WORD. 
010316 013737 00°314 003426 MOV CMDPKT , CMDWRD 
3167 010324 IFB SWBFLG NE #0 THEN ;IF SWAP BYTES 7. ae: 
010324 105737 003536 STB SWBFLG 
010330 001403 BE 50067$ 
3168 010332 LET CMDPKT := CMDPKT SET.BY #SWB.C ;SET SWAP BIT IN COMMAND. 
010332 052737 010000 002314 BIS #SWB.C,CMDPKT 
3169 010340 ENDIF 
010340 50067$ : 
3170 010340 042737 004000 002314 BIC #BRF .C ,CMDPKT ;CLR BRF BIT (INTERNAL ONLY). 
3171 010346 LET CMDSAV := CMDPKT ;SAVE 1ST WORD OF COMMAND PACKET. 
0 013737 002314 003430 MOV CMDPKT , CMDSAV 


——— ee a ae i -— eC—=g we _—— + - 
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3174 ; THIS SUBROUTINE SETS UP _AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 
3175 ; THE DESIRED PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 
3176 ; INPUTS: 
3177 ; OUTPUTS: 
3176 ; REGISTERS: R2, R3, R4. 
te ; CALLS: PATRO - PATR7 
3181 010356 GENPAT:: LET R3 := PATERN SHIFT 1 


| 
' 
' 
{ 


010356 013703 003454 
006303 


010362 ASL 
3182 010364 LET R4 := BRFCNT + #1 ;SET LENGTH OF WRITE BFR 
010364 013704 003424 MOV BRFCNT ,R4 
010370 005204 INC R4 
3183 010372 LET R4 := R4 CLR.BY #1 ;ROUNDED UP TO NEXT WORD 
010372 042704 000001 I #1,R4 
3184 010376 LET R4 := R4 - #2 ;WITH FIRST WORD RESERVED 
010376 162704 000002 S #2,R4 
3185 010402 LET R2 := DATAWT + #2 ;FOR RECORD COUNT 
010402 013702 003414 DATAWT ,R2 
010406 062702 000002 ADD #2,R2 
3186 010412 004773 010420 JSR PC,@PATTBL(R3) ;GO GENERATE THE APPROPRIATE PATTERN. 
it 010416 000207 RTS PC sRETURN TO SETUP SUBROUTINE. 
3189 ;TK25 WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
ity sCORRECT DATA PATTERN GENERATING ROUTINE. 
3192 010420 010442 PATTBL: PATRO ; INCREMENTING PATTERN, 0 - 377 
3193 010422 0105 PATR1 ; ALL ONES PATTERN 
3 010424 010520 PATR2 ; ALL ZEROES PATTERN 
3195 010426 010530 PATR3 ; ‘1' BIT SHIFT, RIGHT TO LEFT 
3 010430 010554 PATR4 ; ‘0’ BIT SHIFT, RIGHT TO LEFT 
3197 010432 010566 PATRS ; ALTERNATE ‘0’ € ‘1' WITH ALT. ~ COMPL . 
3198 010434 010600 PATR6 ; ALTERNATE BYTES OF 000 AND 377 
3199 010436 010620 PATR7 ; RANDOM PATTERN. 
ssor 010440 010744 PATR8S ; DUMMY. NO PATTERN, JUST EXITS. 
3202 
aoe sINCREMENTING PATTERN. 0 - 377. 
3205 010442 PATRO:: LET R3 := @ ‘O 
010442 012703 000400 #400 ,R3 
3206 010446 1$: LET R4 -- R4 - #2 ;DECREMENT WORD COUNT. 
010446 162704 000002 #2,R4 
3207 010452 100411 


BMI 2$ 
3208 010454 LET (R2)+ := R3 
010454 010322 
3209 010456 LET R3 := R3 + #1002 


062703 001002 
3210 010462 IF R3 EQ #1000 THEN 
010462 


020327 001000 
010466 001002 
3211 010470 LET R3 := #400 
010470 012703 000400 
3212 010474 ENDIF 
010474 
3213 010474 000764 BR 1$ 


3214 010476 000207 2s: RTS PC 


;SETUP PATTERN — POINTER 
* es »R3 


;BR IF DONE. 
;STORE DATA WORD. 

MOV R3,(R2)+ 
;UPDATE PATTERN. 

ADD #1002,R3 

;IF PATTERN HAS WRAPPED AROUND THEN: 

CMP R3, #1000 
50070$ 


BNE 
;INIT THE PATTERN AGAIN. 
MOV #400 ,R3 


50070$: 
;D0 IT AGAIN. 
RETURN. 


GLOBAL AREAS 


504 
3220 010510 
3221 010512 
ase8 010514 


32 
3224 010516 


ee ee 
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012703 
162704 
100402 
010322 
000773 
000207 


177777 
000002 


PATRI:: 
ZROPAT: 


1$: 


sALL ONE'S PATTERN. 


MOV #-1,R3 sALL_ONES PATTERN; . 
LET R@ := R4 - 82 sDECREMENT BYTE COUNT. 

SUB #2,R4 
BMI 1$ ;DONE?,BR IF YES. 
MOV R3,(R2)- sIF NOT LOAD NEXT BYTE WITH PATTERN. 
BR ZROPAT :D0 IT AGAIN. 


RTS PC sRETURN. 


SEQ 0076 


ee ee CS 


aoe. a. oe 


3226 
3227 
3228 010520 


46 
44 010564 


252 010566 
thy 010572 


005003 
004737 
000207 


012703 


012703 
v04737 
000207 


012703 
004737 
000207 


012703 
162704 
100402 
010322 
000773 
000207 
012737 


012737 
012737 


010504 


177376 
010534 


125125 
010504 


177400 
000002 


001233 
007622 
000000 


000002 


010736 
010742 


010740 


010742 


PATR2:: 


PATR3:: 
WLKZRO: 


1$: 


PATR4:: 


PATRS:: 


PATR7:: 


1$: 


a og ee AbuTINee cecrtOe 26-MAR-85 15:28 PAGE 71 
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sALL ZEROES PATTERN. 


CLR R3 ;CLR PATTERN REGISTER. 
JSR PC, ZROPAT ;GO GENERATE IT. 
RTS PC 3 
;ONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES. 
MOV 6401,R3 sINIT PATTERN REGISTER. 
LET R4 := R4 - 82 :DECREMENT WORD COUNT. ous 
BMI 1$ F DONE. 
MOV R3,(R2)- ;LOAD gi 
ASL R3 iSHIFT P TTERN 
AOC R3 ADD CARRY BACK INTO PATTERN. 
BR WLKZRO #00 IT AGAIN 
RTS PC ;RETUR 
;ZERO BIT WALKING FROM R TO L IN A FIELD OF 1'S. 
MOV #177376,R3 sINIT PATTERN REGISTER. 
JSR PC, WLKZRO ;GO GENERATE ;IT. 
RTS PC 3 
sALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
| COMPLEMENTED . 
MOV #125125, - ; INIT th ny - raat 
JSR PC, ZROPAT ;GO GENERATE IT 
RTS PC ;RETURN 
;ALTERNATING BYTES OF 000 AND 377. 
MOV 0177400 ,R3 sINIT PATTERN REGISTER. 
LET R4 := R44 - 82 ;DECREMENT WORD COUNT. ws 
BMI 2s ;BR IF DONE. 
MOV R3,(R2)- ;LOAD DATA. 
BR 1$ 300 IT AGAIN. 
RTS PC ;RETURN. 
;RANDOM PATTERN GENERATOR 
MOV ORS1,RAN1 ;SET UP THE SEED 
MOV ORS2,RAN2 ;SET UP THE SEED 
MOV ORS3,RAN3 ;SET UP THE SEED 
LET R4 := RO - @ ;DECREMENT WORD COUNT 7 
BMI GIT 3;BR IF DONE. 
MOV R3,-(SP) 
MOV RAN1 ,R3 sMOVE THE Fins? ieee INTO R3 
CLC ;CLEAR THE CARRY FLAG 
DEC RAN3 ;DECREMENT THE THIRD SEED 
ROL R3 3 
ROL R3 3 
ADD RAN2 ,R3 ;ADD THE SECOND SEED TO R3 


-_- ee ———--— C= 


02 ,R4 


@2,R4 


@2,R4 


SEQ 0077 


ee + 


—_——— Ce 


GLOBAL AREAS 


3280 010674 


3290 732 
3291 010734 
3292 

3293 010736 
3294 010740 
esos 010742 


3 

3302 010744 

3303 

3304 010746 
010746 

3305 Starae 
01074 

3306 01072 

3307 010756 
010756 

010756 


010764 
010772 


MACRO 


010337 


000207 


005337 
005077 


142766 


152766 
000002 
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010736 
010742 


010740 


010740 
010740 


003444 
172506 


000340 000002 
000000 000002 


MOV R3,RANL 
ADD RAN3 ,R3 
ROL R3 
ROL R3 
ADD RAN2 ,R3 
ROL 3 
ROL R3 
MOV R3,RAN2 
MOV (SP)+,R3 
MOV RAN2, (R2)- 
BR 1$ 

GIT: RTS PC 

RANI:: .WORD 0 

RAN2:: .WORD 0 

RAN3:: .WORD 0 

RS1 ss 1233 

RS2 ss 7622 

RS3 ss 0 

: NO PATTERN GENERATION. 

PATR8:: RTS PC 

BGNSRV CLKSVC 

CLKSVC:: 
LET TIME := TIME1 - #1 
LET @LCSR := #0 

ENDSRV #0 

L10010: 


N6 


SEQ 0078 


sPUT IT ALL_IN THE FIRST SEED 
;PUT THE THIRD SEED INTO R3 


SADD THE SECOND SEED TO R3 
; 


:PUT TT IN *. THE SECONG SEED 
‘PUT t) tn BUFFER 

; CONTINUE 

; RETURN 


sRETURN, 


DEC TIME1 

CLR aLCsR 
BICB #340 ,2(SP) 
pte #0,2(SP) 


| GLOBAL AREAS 


0 
3317 O11 
3318 011010 
01 


01 
3319 artes 
3320 011020 


0 
3335 otiias 
011 
3336 011114 
011114 
3337 011120 
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005737 
001004 


012737 
000403 


012737 


005737 
001003 


005337 
000403 


012777 


104422 
032775 
001746 
023727 
001022 
010537 
004737 


003464 


177777 


000100 


003444 
012224 


017770 


000200 


003426 


003460 
017666 


003444 


003444 


172422 


002466 


140004 


EXCUTE: 








SEQ 0079 


THIS SUBROUTINE INITIATES TK2S COMMAND EXECUTION 
RESPONSE . 


AND CHECKS FOR TK25 
INPUTS: 


OUTPUTS: 
REGISTERS: R2, R3. 
CALLS: OR 


OPU, MOVMSG, FIRSTU, NEXTU, WSSR. 


:IF LCSR EQ #0 THEN 


LET TIME] := @-1 
ELSE 


LET TIME] := #304 
ENDIF 
REPEAT 
IF LCSR EQ #0 THEN 


LET TIME] := TIME1 - #1 
ELSE 


LET @LCSR := #100 
ENDIF 
IF TIME1 EQ@ #0 THEN 


JSR PC, MOVMSG 
ERRDOF 2,NSSRM,STAERM 
JSR PC,DROPU 
BR EXCRTN 
ENDIF 
BREAK 
UNTIL #TS.SSR SETIN ATSSR(RS) 


IF CMDWRD EQ #SCH THEN 


LET RSSAVE := RS 
JSR = PC,FIRSTU 


TST LCSR 
BNE 50071$ 
MOV #-1,TIME1 
BR 50072$ 
50071$: 
MOV #304, TIME1 
50072$ 
;WAIT - 
50073$ 
TST LCSR 
BNE 50074$ 
DEC TIME1 
50075$ 
50074$: 
;ARM THE INTERRUPTS 
MOV #100,aLCSR 
50075$: 
;IF TIMED OUT: 
TIME1 


BNE 50076$ 
sMOVE CURRENT PACKET MSG. 
sREPORT TK2S NOT READY 
TRAP on 


-WORD NSSRM 
-WORD STAERM 
;DROP THE UNIT. 
RETURN. 


50076$: 
TRAP C$BRK 
;WAIT UNTIL DEVICE IS READY. 
BIT 87S. SSR, aTSSR(RS) 


BEQ 
;IF WE ARE DOING A SET CHAR CMD THEN: 
CMP er" » @SCH 


BNE 500 
sSAVE CURRENT DEVICE POINTER. 
MOV RS, RSSAVE 
sFIND FIRST UNIT. 


ae Or 


EM 


GLOBAL AREAS 


3338 011124 


011132 
3339 011134 
3340 011140 
3341 011144 
011144 
011146 
3342 011146 
3343 011152 
011152 
3344 011160 
011160 
3345 011160 
011160 
3346 Stites 
3347 Sites 


011274 
3364 011302 


_— 2 eee ne ee owe 
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013705 
016537 


016503 
005002 
001405 
012723 
062702 
000770 


105737 
001023 


126527 
003412 


017537 
104455 
000017 


005065 
052737 


105737 
001005 


005265 
016577 


002536 


012124 
017734 


003460 
002506 


002506 


000016 
177777 
000002 
002212 
003506 


002466 


017770 


003506 
000200 


003505 


003330 
003330 


177777 


002446 


000001 


003462 


002314 


172112 


1$: 


C7 


WHILE DEVTBL(RS) NE @END DO 


JSR PC,WSSR 
JSR PC,NEXTU 
ENDOO 


LET RS : 


LET SCHBK := 


ENDIF 
LET R3 : 


LET R2 := #0 


:* RSSAVE 


MSGPKACRS ) 


:= MSGPKACRS) 


WHILE R2 NE #MSGCNT DO 


LET (R3)+ 
LET R2 : 
ENDOO 


TSTB DINT 


:= #-1 
:= R2 + #2 


BNE 1$ 
IFB INTFLG(RS) GT #1 THEN 


LET TSSREG : 


:= @TSSRCRS) 


ERRDF 15, TOOMM,STAERM 


JSR PC, DROPU 


BR_ EXCRTN 
ENDIF 


LET INTFLG(RS) := #0 


BIS #IE.C,CMDPKT 
IFB ERRREC EQ #0 THEN 


LET RECCNTC(RS) 
LET @DATAWT 


ENDIF 


:= RECCNTC(RS) 


50100$: 
~ +144 7 aa » END 
;WAIT FOR y 4, READY OR TIME OUT, 


;FIND NEXT 
BR 50100$ 

;RESTORE CURRENT DEVICE POINTER. 

MOV RSSAVE RS 


;SET UP ADR OF MSG PKT IN SCH BLOCK. 
MOV MSGPKACRS ), SCHBK 


50077$: 
;ADR OF THIS UNIT'S MSG PACKET. 
MSGPKACRS),R3 
;CLR COUNTER. 
CLR R2 
;WHILE THERE ARE MORE LOCATIONS: 
50102$: 
CMP R2, @MSGCNT 
BEQ 50103$ 
sINIT THE MSG PACKET WITH ALL 1°S 


-1,(R3)+ 
sUPDATE COUNTER. 
ADD #2,R2 


- 50102$ 
iy alt DISABLED. 


:IF MORE THAN ONE INTERRUPT HAS OCCURED: 
CMPB | HA plate #1 


BLE 
sFREEZE THE CURRENT STATUS REG FOR PRINT 


MOV JTSSRCRS), TSSREG 
sREPORT TOO MANY INTERRUPTS. 
TRAP CSERDF 
-WORD 15 
-WORD TOOMM 
-WORD STAERM 


;DROP THE UNIT 
sRETURN - UNIT HAS BEEN DROPPED. 
50104$: 
sCLR INTERRUPT ns FOR THIS DEV. 
CLR INTFLGCRS) 
SET INT ie 


;IF NOT RETR 
TSTB ERRREC 
BNE 50105$ 


:= RECCNT(RS) + #1 


INC RECCNT(RS) 
THEN UPDATE REC COUNT TO WRITE IT ON TAPE 
MOV RECCNT(RS) ,@DATAW? 


ee ee + ee wee 
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011302 
3365 011302 
011302 
0 0 
3366 011322 
011322 
3367 011326 
0 
3368 oritee 
3369 011342 


0 
3370 erisee 
3371 erases 


0 
3372 orien 
3373 011 
0 


0 
3374 011366 
01 


011460 
3385 011462 


023727 
001047 
023727 
001043 
105237 
123737 
003435 
105037 
012737 


005737 
001404 


012777 
000416 


012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 


005037 


005737 
001350 


012775 


032775 


002114 
003426 


003537 
003537 


003537 


000004 


003464 


000100 


000025 
002116 
177772 
177756 


003444 


003444 


002314 


*00200 
24 


017770 


000003 
104005 


000003 


003444 


172100 


002456 


002466 


D7 


LET LOOPCT :B= LOOPCT + #1 
IFB LOOPCT GT 3 THEN 


LET LOOPCT :B= #0 
LET TIME] := #4 
REPEAT 

IF LCSR NE #0 THEN 


LET @LCSR := #100 
ELSE 


DELAY 21. 


LET TIME1 := #0 
ENDIF 
UNTIL TIME1 EQ #0 


#CMDPKT , ATSDBCRS ) 


PC ,MOVMSG 


ERRDF 3, TOERM, STAERM 


JSR PC,DROPU 


IF L$TEST EQ #3 AND CMDWRD EQ #WRT THEN 


50110$: 


TST 
BEQ 


MOV 


BR 
50111$: 


CLR 


50112$: 


TST 
BNE 


50107$: 


50106$: 
;LOAD TSDB WITH CMDPKT ADOR 
sTHIS INITIATES COMMAND EXECUTION. 
IF #TS.SSR SETIN @TSSR(RS) THEN ;IF READY DID NOT DROP THEN: 


BIT 


;DROP THE UNIT 


L$TEST, #3 
50106$ 
CMOWRD , #WRT 
50106$ 
LOOPCT 


LOOPCT,3 
50107$ 


LOOPCT 
#4, TIME1 


LCSR 
50111$ 


#100, aLCSR 
50112$ 


MOV #21. »(PC)+ 

MOV L$OLY,(PC)- 

DEC -6(PC) 

NE o~ 

DEC -22(PC) 
.-20 


TIME1 
50110$ 


ESS 


#TS.SSR,aTSSR(RS) 
50113$ 


BEQ 
sMOVE CURRENT MESSAGE PACKET TO COMMON. 
sREPORT NO TK25 RESPONSE. 


TRAP CSERDF 
D 3 


. TOERM 
-WORD STAERM 


TE A TT, TTT Se 


ec 


E/ 


GLOBAL AREAS MACRO M1200 28-MAR-85 15:28 PAGE 72-3 


011612 012727 000012 #10.,(PC)+ 


GLOBAL SUBROUTINES SECTION SEQ 0082 | 
3386 011466 ENDIF 
011466 501134: 
$387 011466 000207 EXCRIN: RTS PC ;RETURN. 
3389 ; THIS SUBROUTINE WAITS FOR THE TK25 INERRUPT OR DONE BIT TO SET AND ALLOWS THE 
3390 ; OPERATOR TO TRANSFER CONROL TO THE SUPERV 
3391 ; UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS, 
3392 ; LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASAR | 
3393 ; INPUTS: | 
3394 ; OUTPUTS: 
3395 ; REGISTERS: R2, R3. 
3396 ; CALLS: DROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 
3398 011470 GOWAIT: :IF DEVTBL(RS) EQ #NINUSE THEN 
011470 026527 002536 177774 CMP —s- DEVTBL(RS), #NINUSE 
011476 001002 BNE 50114$ 
3399 011500 000137 012106 UMP 1$ 
3400 011504 ENDIF 
011504 50114$: 
3401 011504 IF LCSR EQ #0 THEN 
011504 005737 003464 TST LCSR 
011510 001004 BNE 50115$ 
3402 011512 LET TIMEL := #-1 ;INIT TIME OUT COUNTER. 
011512 012737 177777 003444 MOV #-1,TIME1 
3403 011520 ELSE 
011520 000403 BR 50116$ 
011522 50115$: 
3404 011522 LET TIMEL := #37777 ;LINE CLOCK STALL VALUE 
011522 012737 037777 003444 MOV —s« #37777, TIME1 
3405 011530 ENDIF 
011530 50116$: 
3406 011530 REPEAT ;REPEAT UNTIL INTERRUPT OCCURES: 
3407 011530 BREAK ;HONOR SUPERVISOR BREAKS 
011530 104422 TRAP —-CSBRK 
3408 011532 IF PCMDWD EQ #RWD AND CMDWRD EQ #WRT THEN 
011532 023727 003432 102010 CMP ——- PCMDWD,, @RWD 
011540 001020 BNE 50120$ 
011542 023727 003426 104005 CMP CMOWRD, #WRT 
011550 001014 BNE 50120$ 
3409 ;POSSIBLE FIRST WRITE ON TAPE 
3410 011552 DELAY 40. 
011552 012727 000050 MOV #40. .(PC)+ 
011556 000000 .WORD 0 
011560 013727 002116 MOVs L$DLY, (P+ 
011564 000000 .WORD 0 
011566 005367 177772 DEC -6(PC) 
011572 001375 BNE tee 
011574 005367 177756 DEC 22(PC) 
011600 001367 BNE .-20 
3411 011602 ENDIF SO DELAY TO CALIBRATE TAPE 
3412 011602 IF CMDWRD EQ #RWD THEN IF COMMAND WAS REWIND THEN: | 
011602 023727 003426 102010 CMP —s- CMDWRD, #RWD 
011610 001014 BNE 50121$ 
3413 011612 DELAY 10. WAIT EXTRA 10 MSECS EACH LOOP. 


GLOBAL AREAS 


011616 
01 


011640 
3414 otieas 
3415 erties’ 


3416 Siiees 


0 
3417 011712 
3418 aries 


0 
3419 Sriise 
3420 011724 


3421 011726 
0 
3422 011734 


0 
3423 orites 
3424 011742 


0 
3425 orites 
3426 eritee 


0 
3427 ori tee 
3428 ori tes 
3429 artes 


- ee ee ee 
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023727 
001404 
023727 
001014 


012727 
000000 


105737 
001003 


016502 
000406 
012703 
005103 


017502 
040302 


005737 
001003 


005337 
000403 


012777 


005702 
001003 


002116 
177772 
177756 


003426 
003426 


000014 
002116 
177772 
177756 


002212 


003506 


000200 


002466 


003464 


003444 


000100 


105010 
105410 


171500 


ENDIF 





IF CMDWRD EQ #SFF OR CMDWRD EQ #SFR THEN 


DELAY 12. 


ENDIF 
IFB DINT EQ #0 THEN 


LET R2 := INTFLGCRS) 
ELSE 


LET R3 := COMP #TS.SSR 


COM 
LET R2 := @TSSRCRS) CLR.BY R3_ ;FETCH DONE y AB 


ENDIF 
IF LCSR EQ #0 THEN 


LET TIME1 := TIME1 - #1 
ELSE 


LET @LCSR := #100 
ENDIF 
UNTIL R2 NE #0 OR TIME1 EQ #0 


SEQ 0083 

-WORD 0 
MOV LSDLY,(PC)+ 
. WORD 
DEC -6(PC) 
BNE = 
DEC -22(PC) 
BNE --20 

50121$: 

CMP CMDWRD , #SFF 

BEQ 50122$ 

CMP CMDOWRD , #SFR 
50123$ 

50122$: 

;ADD DELAY FOR SPACE TAPE MARK COMMANDS 

MOV #12. ,(PC)+ 
-WORD 0 
MOV L$DLY,(PC)+ 
-WORD 0 
DEC -6(PC) 
BNE -- 
DEC -22(PC) 
BNE --20 


50123$: 
sIF INTERRUPTS ARE ENABLED. 
TSTB DINT 


BNE woes 
sFETCH INTERRUPT OCCURRED F 
V INTFLECRS), R2 
;IF IN BRUTUS — 


: 50125$ 
;SET UP A MASK FOR THE * DONE BIT. 
MOV Ae - SSR ,R3 
@TSSRCRS),R2 
BIC R3,R2 
50125$: 
TST LCSR 
BNE 50126$ 
sUPDATE TIMEOUT COUNTER. 
DEC TIME1 
; 50127$ 
50126$: 
3ARM THE INTERRUPTS 
MOV #100, @LCSR 


50127$: 

sREPEAT UNTIL INTERRUPT OR READY OCCURES. 
TST R2 
BNE 50130$ 


weno os 


—_—_————— 








ee Ee ee se ce = ae a .~ 


G/ 
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| GLOBAL SUBROUTINES SECTION SEQ 0084 | 
011770 005737 003444 TST TIME1 
011774 001255 BNE . 50117$ 
011776 50130$: 
3430 011776 IF TIME1 EQ #0 THEN ;IF TIME OUT HAS OCCURRED: 
011776 005737 003444 TST TIME1 
012002 001022 BNE 50131$ 
3431 012004 LET @DATAWT := RECCNT(RS) - #1 ;RE-ADJUST REC COUNT DOWN } 
012004 016577 003330 171402 MOV RECENT CRS). SDATAUT 
012012 005377 171376 DEC ATAWT 
3432 012016 004737 012224 JSR__ PC,MOVMSG ;MOVE CURRENT MSG PACKET TO COMMON AREA. 
3433 012022 ERRDF 4,NOINTM,STAERM ;REPORT NO INTERRUPT. 
012022 104455 TRAP CSERDF 
012024 000004 -WORD 4 
012026 004515 -WORD NOINTM 
012030 005640 -WORD  STAERM 
34 012032 004737 017770 JSR PC,DROPU ;DROP THE UNIT. 
012036 012703 003506 MOV #ENDERF ,R3 
3436 012042 004737 012110 JSR PC,CLRERR ;CLEAR ALL ERROR FLAGS 
3437 012046 ELSE 
2046 000417 BR 50132$ 
012050 50131$: 
3438 012050 004737 012224 JSR PC,MOVMSG ;MOVE_CURRENT MSG. PACKET TO COMMON AREA. 
3439 012054 004737 012310 JSR = PC,RECUD ;UPDATE THE RECORD COUNT. 
3440 012060 004737 012456 JSR _ _ PC, CHKERR sCHECK FOR STATUS ERRORS. 
3441 012064 IFB WRTYFG EQ #0 THEN : 
012064 105737 003477 TSTB WRTYFG 
012070 001006 BNE 50133$ 
3442 012072 004737 016024 JSR PC,LOG :LOG BYTES AND ERRORS. 
3443 012076 LET R3 := #ENDERF 
012076 012703 003506 MOV #ENDERF ,R3 
3444 012102 004737 012110 JSR PC,CLRERR ;CLEAR ALL ERROR FLAGS 
3445 012106 ENDIF 
012106 50133$: 
3446 012106 ENDIF 
012106 50132$: 


34 
3435 012036 LET R3 := #ENDERF 
3447 012106 000207 1$: RTS PC sRETURN IF DONE. 
; 

| 


| GLOBAL AREAS 


34 
012110 
0 


012122 


3469 012124 


ee ee 
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012702 


005022 
020203 


001375 
000207 


012737 


104422 


005737 
001003 


005337 
000403 


012777 


032775 


104455 
000024 


; GLOBAL SUBROUTINES SECTION 


003474 


177777 


003464 


003444 


000100 


000200 
003444 


003444 
012224 


003444 


171306 


002466 


CLRERR: : 


WSS 





H7 


SUBROUTINE TO CLEAR FLAGS. 
INPUTS: R3 = LWA TO BE CLEARED + 2. 
OUTPUTS: 
REGISTERS: R2 
CALLS: 
LET R2 := #BGNFLG 
MOV #BGNFLG ,R2 
REPEAT 
50134$: 
LET (R2)+ := 
CLR (R2)+ 
UNTIL R2 EQ R3 
CMP R2,R3 
BNE 50134$ 


RTS PC 


come TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 


OUTPUTS: 
REGISTERS: 
CALLS: 
LET TIME1 := #-1 ;INIT TIMEOUT COUNTER. 
V #-1,TIME1 
REPEAT ;REPEAT UNTIL DEV oy OR TIMEOUT: 
BREAK ;BREAK TO THE SUPERVISOR. 
TRAP C$BRK 
IF LCSR EQ #0 THEN 
TST LCSR 
BNE 50136$ 
LET TIME1 := TIME1 - #1 ;UPDATE TIMEOUT COUNTER. 
; DEC TIME1 
ELSE 
i 50137$ 
LET @LCSR := #100 ;ARM CLOCK INTERRUPTS 
MOV #100,@LCSR 
ENDIF 
50137$: 
UNTIL #TS.SSR SETIN @TSSRCRS) OR TIME1 EQ #0 
BIT #TS.SSR,aTSSRCRS) 
BNE 50140$ 
TST TIME1 
iF 50135$ 


IF TIME1 EQ #0 THEN 


JSR PC, 


MOVMSG 
ERRDF 20,NSSRM,STAERM 


50140$: 
;REPEAT UNTIL DEV READY OR TIMEOUT. 
;IF SYSTEM tees oF THEN 


BNE 5 
sMOVE CURRENT PACKET MSG 
;SSR DIDN'T SET IN TIME 

TRAP CSERDF 
-WORD 20 


er eome— — -e 


| GLOBAL AREAS 
| GL 


012212 
012214 
3482 012216 
3483 012222 
012222 
sees 012222 


3494 012224 


01 
3500 012266 
012 
3501 012272 
012272 
3502 012276 
012276 
012300 
3503 012300 
012300 
3504 012306 


lL ST 
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004365 
005640 
004737 


000207 


017537 


013702 
042702 


010237 
006237 
016503 
005002 
sti! 
012362 
062702 
000770 


013765 
000207 


017770 


002466 003462 


003462 
177761 


003456 
003456 


002506 
000016 
002340 


000002 


002346 003516 


MOVMSG: : 


-WORD NSSRM 
-WORD STAERM 
ar" DROPU ; THROW THE UNIT ON THE FLOOR 


50141$: 
RTS PC sRETURN. 


SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
nent THE CURRENT TERMINATION CLASS CODE. 


OUTPUTS: 

REGISTERS: R2, R3. 

CALLS: 

LET TSSREG := @TSSRCRS) ;FREEZE THE STATUS REG CONTENTS 


@TSSRCRS), TSSREG 
LET R2 := TSSREG CLR.BY #TSC.TCC ;EXTRACT THE TERMINATION CLASS CODE, 
MOV TSSREG ,R2 


BIC #TSC.TCC,R2 


LET CTCC := R2 SHIFT -1 sAND SAVE IT 
MOV R2,CTCC 
ASR CC 
LET R3 := MSGPKACRS) sADR OF THIS DEVICE'S MSG. 
MSGPKACRS),R3 
LET R2 := #0 ;CLR COUNTER. 


CLR R2 
WHILE R2 NE #MSGCNT DO ;WHILE THERE saa 9 aaetce 


CMP R2, #MSGCNT 


BEQ 50143$ 
LET MSGPKT(R2) := (R3)+ sMOVE MSG TO COMMON AREA. 
MOV (R3)+,MSGPKT(R2) 
LET R2 := R2 + #2 sUPDATE COUNTER. 
ADD #2,R2 
ENDDO 


BR ‘ 50142$ 


5 : 
LET EOTFLGCRS) := MSGPKT+MS.XSO ;MOVE XSTATO TO EOT FLAG. 
uve - MOV MSGPKT+MS .XSO,EOTFLG(R5) 


a -  ” ee a ee eee 


© me cee aoe meee ene 
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3506 , SUBROUTINE TO ADJUST THE RECORD COUNT. 

3507 ; INPUTS: 

3508 : OUTPUTS: 

3509 ; REGISTERS: 

3510 CALLS: 

3512 012310 RECUD:: IFB RECLOG EQ #0 THEN IF RECORD HAS NOT BEEN LOGGED: 

012310 105737 003501 STB. RECLOG 
012314 001057 BNE, SOL4SS 

3513 012316 LET RECCNTCRS) :* RECCNT(RS) - #1 
012316 005365 003330 DEC —sRECCNTC.RS) 

3514 012322 IF #BITO NOTSETIN CTCC AND #X2.0PM SETIN MSGPKT-MS.XxS2 THEN  ;IF TAPE MOVED THEN: 
012322 032737 000001 003456 BIT #BITO,cTéC 
012330 001046 BNE  50145$ 
012332 032737 100000 002352 BIT 8X2. OPM, MSGPKT+MS.. xS2 
012340 001442 BEQ 50145$ 

3515 012342 | LET RECLOG :B= RECLOG + #1 ;SET RECORD LOGGED. 

012342 105237 003501 INCB —«RECLOG 

3516 012346 IF CMDWRD EQ #RWD THEN ,IF THIS IS A REWIND CMD: 

012346 023727 003426 102010 CMP CMDWRD, #RUD 
012354 001003 BNE  _50146$ 

3517 012356 LET RECCNTCRS) := #0 ;CLEAR RECORD COUNT, 

012356 005065 003330 CLR’ —_— RECCNTCRS) 

3518 012362 ELSE 
012362 000431 BR 501473 
012364 50146$: 

3519 012364 IF #BRF.C SETIN CMDWRD THEN ;IF BRF USED, UPDATE RECORD COUNT. 
012364 032737 004000 003426 BIT '  @BRF.C.CMOWRD 
012372 001425 | BEQ _ 50150$ 

3520 012374 IF #MOD.CO NOTSETIN CMDWRD THEN ;IF A FORWARD CMD: 

012374 032737 000400 003426 BIT @H0D..C0, CHORD 
012402 001007 BNE 50151 $ 

3521 012404 IF @MOD.CO NOTSETIN PCMDWD THEN ;IF PREV CMD WAS A FWD ALSO: 
012404 032737 000400 003432 BIT #MOD.CO.PCMDUD 
012412 001002 BNE  50152$ 

3522 012414 LET RECCNT(RS) := RECCNT(RS) + #1 ;INCREMENT RECORD COUNT 
012414 005265 003330 INC RECCNTCRS) 

3523 012420 ENDIF 
012420 501525: 

3524 012420 ELSE SIF REVERSE CMD: 

012420 000412 BR 50153$ 
012422 501515: 

3525 012422 IF #MOD.CO SETIN PCMDWD THEN ;IF PREVIOUS CMD WAS A REV ALSO: 
012422 032737 000400 003432 BIT #H0D.CO.PCMDWD 
012430 001406 BEG S01S4s 

3526 012432 IF #X0.BOT NOTSETIN EOTFLG(RS) THEN ;WHEN NOT AT BOT THEN 
012432 032765 000002 003516 BIT 8X0. BOT, EOTFLGCRS) 
012440 001002 BNE 50155$ 

3527 012442 LET RECCNT(RS) := RECCNT(RS) - #1  ;DECREMENT RECORD COUNT. 
012442 005365 003330 DEC RECCNTCRS) 

3528 012446 ENDIF 
012446 50155$: 

3529 012446 ENDIF 
012446 501545: 

3530 012446 ENDIF 
012446 50153$: 

3531 012446 ENDIF 


-— —_——— ee 
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012446 
3532 012446 ENDIF 
012446 
3533 012446 ENDIF 
012446 
3534 012446 LET @DATAWT := RECCNTC(RS) 
012446 016577 003330 170740 
3535 012454 ENDIF 


012454 , 
3536 012454 000207 RTS PC sRETURN. 





RECCNT(RS), @DATAWT 


-—ee-e—ees -o eereee 4 
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3 

3548 012456 
012456 
012464 

3549 012466 
012466 
012474 

3550 012476 
0124 
01250, 

3551 pap toey 


01 
3552 012514 
01 


01 
3553 012524 
0 
3554 012 


01 
3555 012572 
3556 012572 

012572 


012600 
3557 012602 
012602 


012622 
3558 012622 
012622 


012626 
3559 012630 
3560 012634 
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SUBROUTINE IS CALLED TO CHECK THE TK25 STAT 
IF SPECIAL COND IS SET THEN THE TC 

IF THE RFC IS NON Z 
THEN AN ERROR RFC IS REPORTED, 
INPUTS: 


CD we we we oe oe oe as oe oe 


THIS IS THE ERROR CHECK SUBROUTINE. 5 star nati THIS 


Cc HANDLING SUBROUTINE IS ENTERED. 
ERO FOR A COMMAND REQUIRING A BPCR, 


SEQ 0089 


OUTPUTS: 
REGISTERS: R2, R 
CALLS: TCCO- Téc7. 
HKERR: :IF DEVTBL(RS) NE @NINUSE THEN 
026527 002536 177774 CMP DEVTBL(RS), @NINUSE 
001570 BEQ 50156$ 
IF #X1.EWN SETIN MSGPKT+MS.XS1 THEN :IF EARLY — IS SET AND 
032737 000010 002350 BIT @X1. EWN, MSGPKT «MS .XS1 
001461 BEQ 50157$ 
IFB EWPRNT NE #0 THEN ;IF END OF TRACK STATUS PRINTS ALLOWED 
105737 002216 TSTB EWPRNT 
001433 BEQ 50160$ 
LET R2 := MSGPKT+MS.XS1 CLR.BY #177417 
013702 002350 MOV MSGPKT «MS .XS1,R2 
042702 177417 BIC #177417,R2 
LET R2 :=* R2 SHIFT -4 
006202 ASR R2 
006202 ASR R2 
006202 ASR R2 
006202 ASR R2 
PRINTF #EWMSG,R2 PRINT END OF TRACK MESSAGE 
010246 MOV R2,-(SP) 
012746 013050 MOV @EWMSG, -( SP) 
012746 000002 MOV @2,-(SP 
010600 MOV SP ,RO 
104417 TRAP CSPNTF 
062706 000006 ADD »SP 
PRINTF #TRKMSG,@DATAWT 3##¢ TRACE 
017746 170642 MOV @DATAWT , -( SP) 
012746 013133 MOV @TRKMSG, -( SP) 
012746 MOV #2,-(SP) 
01 MOV SP ,RO 
104417 TRAP CSPNTF 
062706 000006 ADO #6 ,SP 
ENDIF 
50160$: 
IF CTCC EQ #4 THEN ;IF TCC4 AND WE DID A WRITE 
023727 003456 000004 CMP CTCC, 04 
001017 BNE 5016i$ 
IF CMDWRD EQ @WRT OR CMDWRD EQ @WTM THEN 
023727 003426 104005 MP CMDWRD , OWRT 
001404 BEQ 50162$ 
023727 003426 100011 CMP CMDWRD , OWTM 
001007 BNE 50163$ 
50162$: 
IFB IREC EQ #0 THEN 
105737 002210 TSTB IREC 
001004 BNE 50164$ 
004737 013174 JSR PC ,EWRTRY :D0 EW RETRY 
000137 013046 JMP 1$ sALAS, A "GOTO" STATEMENT, EH? 


a a ee ee 
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3561 012640 ENDIF 
012640 5016 3: 

3562 012640 ENDIF 
012640 50163$: 

3563 012640 ENDIF 
012640 50161$: 

3564 012640 ENDIF 
012640 50157$: 

3565 012640 IF #TS.SC SETIN TSSREG THEN ;IF SPECIAL COND STATUS IS SET THEN: 
012640 032737 100000 003462 BIT #TS.SC, TSSREG 
012646 001441 BEQ 50165$ 

3566 012650 IF CTCC NE #2 THEN sIF TCC IS NOT 2 THEN: 

012650 023727 003456 000002 CMP CTCC, #2 
012656 001405 BEQ 50166 

3567 012660 IFB ERRREC EQ #0 THEN ;IF NOT IN ERROR RECOVERY: 

012660 105737 003505 TSTB ERRREC 
001002 50167$ 

3568 012666 005265 003270 INC SCCNTC(RS) sINC SC COUNTER. 

3569 012672 ENDIF 
012672 50167$: 

3570 012672 ENDIF 

12672 50166$: 

3571 012672 IF @TS.NXM SETIN TSSREG OR #TS.UPE SETIN TSSREG THEN ;WHEN NON-EXISTANT MEMO 
012672 032737 004000 003462 BIT @TS.NXM, TSSREG 
012700 001004 BNE 50170$ 
012702 032737 040000 003462 BIT @TS.UPE , TSSREG 
012710 001412 BEQ 50171$ 
012712 50170$ 

3572 012712 IF #X2.0PM NOTSETIN MSGPKT+MS.XS2 THEN ;AND TAPE NOT MOVED 
012712 032737 100000 002352 BIT 8X2. OPM, MSGPKT «MS. XS2 
012720 001003 BNE 50172$ 

3573 012722 LET R2 := #5 ;SET TCCS INDEX 

12722 012702 000005 MOV #5,R2 

3574 012726 ELSE 
012726 000402 BR 50173$ 
012730 50172$: 

3575 012730 LET R2 := 04 sTAPE MOVED, SET TCC4 INDEX 
012730 012702 000004 MOV #4,R2 

3576 012734 ENDIF 

12734 50173$: 

3577 012734 ELSE 
012734 000402 50174$ 
012736 50 : 

3578 012736 LET R2 := CTCC sSET DETECTED TCC INDEX 

12736 013702 003456 MOV CTCC,R2 

3579 012742 ENDIF 

74, 50174$: 

3580 012742 LET R2 := R2 SHIFT 1 ;CURRENT TCC X 2. 

012742 006302 ASL R2 

3581 012744 004772 013154 JSR PC,aTCCRACR2) sGO TO THE TCC HANDLING SUBROUTINE. 

3582 012750 ELSE 
012750 000430 BR 50175$ 
012752 501658: 

3583 012752 IF @BRF.C SETIN CMDWRD THEN ;IF BRF IS USED IN THIS CMD THEN: 
012752 opto 004000 003426 iT BBRF -C. CHOURD 


012760 BEQ 
3584 012762 IF MSGPKT+MS.RFC NE #0 THEN ;IF THERE IS AN RFC THEN: 


ee 
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012762 
012766 
3585 012770 
012770 
012774 
012776 
013002 
013004 
3586 
3587 013004 
013004 
013010 
3588 013012 
3589 fete 
013016 


013024 
3590 013026 
3591 013032 


013032 

3592 013032 
3593 013032 
3594 013032 
3595 oi eoas 
3596 013032 
013032 
013036 

3597 013040 
3598 013046 
3046 

3599 013046 
3046 


3602 SEES 


013125 
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005737 
001421 


105737 
40 


001403 
105737 
001413 


105737 
001403 


013737 


014436 


003503 


003430 


002314 


1$: 


EWMSG: 


TST MSGPKT «MS .RFC 
6cQ 50177$ 
IFB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 
TSTB RANDOM 
BEQ 50200$ 
TSTB VFYFLG 
BEQ 50201$ 


50200$ : 
sIF NOT IN RANDOM OR IF CMD IS WTV: 
sIF RFC Serer os * he ARE ALLOWED: 


IFB IRE EQ #0 THEN 


LET HRDCNT(RS) := HRDCNT(RS) + #1 
ERRHRD 13,RFCERM,STAERM ;REPORT RFC ERROR 


BNE 50202% 
sUPDATE HARD ERROR COUNT 
NC HROCNT(RS ) 


TRAP CSERHRD 
-WORD 13 
-WORD RFCERM 
«WORD STAERM 
JSR PC ,RAMDUM :G0 DO RAM DUMP 
ENDIF 
50202$: 
ENDIF 
50201$: 
ENDIF 
50177$: 
ENDIF 
50176$: 
ENDIF 


IFB RWERR NE #0 THEN 


BEQ 50203$ 
LET CMDPKT := Cin. W sRESTORE CMD PACKET AFTER ERROR RECOV. 
MOV CMDSAV , CMDPKT 
ENDIF 
50203$: 
ENDIF 
50156$: 
RTS PC ;RETURN. 


-ASCIZ /sNSAEARLY WARNING DURING WRITE AT END OF TRACK #D2/ 


50175$: 
sIF A READ/WRITE "wee a THEN: 


SEQ 0091 


_——— ll — cL. i, ee a 
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SEQ 0092 : 
0131 104 000 
| 3603 013133 045 101 040 TRKMSG: .ASCIZ /#A RECORD NO #05/ 
0131 122 105 103 
013141 117 122 1 
3144 116 117 
013147 045 104 
013152 065 000 
3604 EVEN 
soon 
3607 : ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 
154 TCCRA: TCCO 
3610 013156 013330 TCC1 
3611 013160 TCC2 
3612 013162 0.3514 TCC3 
3613 013164 013536 TCC4 
3614 013166 014256 TCCS 
3615 013170 014360 TCC6 


3616 013172 014414 TCC? 


ee TTT NN Me 


ee 








C8 


0 
3640 013304 000207 RTS PC sRETURN TO CALLER 
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GLOBAL SUBROUTINES SECTION 
3618 SUBROUTINE TO HANDLE EARLY WARNING WRITE ERRORS. 
: 
3620 THIS ROUTINE WILL SIMPLY TAKE CARE OF EARLY WARNING WRITE ERRORS 
3621 ; BY REISSUING THE COMMAND WHICH FAILED WITH THE RETRY MODIFIER SET. 
3622 ; NOTE THAT NO ERROR FLAGS, COUNTS, ETC ARE CHANGED. 
3628 ; (EW ERRORS WILL NOT SHOW UP IN ERROR TALLIES). 
| 3625 13178 EWRTRY: : 
3626 013174 LET -(SP) := CMDPKT :SAVE THE COMMAND PACKET 
013174 013746 002314 CHDPKT, -( SP) 
3627 013200 LET CMDPKT := CMDPKT SET.BY @M0D.C1 § ;SE~ THE RETRY MODIFIER IN COMMAND 
013200 052737 001000 002314 I 1, CMDPKT 
3628 013206 LET ERRREC :B= #1 sSHOW ERROR RECOVERY IN PROCESS 
013206 112737 000001 003505 MOVB = #1 ,ERRREC 
3629 013214 004737 010774 JSR __—PC,EXCUTE :D0 THE COMMAND 
3630 013220 LET ERRREC’ :B= #0 ;NO MORE ERROR RECOVERY 
013220 105037 003505 CLRB —_ERRREC 
3631 013224 LET CMDPKT := (SP)+ sRESTORE THE ORIGINAL COMMAND STATUS 
013224 012637 002314 MOV (SP )+, CMDPKT 
3632 013230 LET R2 := (SP)- sMODIFY THE RETURN ADDRESS 
013230 012692 MOV (SP)+,.R2 
3633 013232 004737 012124 JSR _- PC, WSSR ;WAIT FOR THE COMMAND TO FINISH 
3634 013236 LET -(SP) := #10. ;OVERALL LOOP CONTROL 
013236 012746 000012 MOV = #10. ,-( SP) 
3635 013242 REPEAT ;LOOP 
013242 502048 : 
3636 013242 DELAY 250. ;WAIT FOR THE UNIT TO STOP 
013242 012727 000372 MOV = #250. (PC) 
013246 000000 .WORD 0 
013250 013727 002116 MOVs LSDLY,.(PC)+ 
013254 000000 WORD 0 
013256 005367 177772 DEC = -6(PC) 
013262 001375 7 ea 
013264 005367 177756 DEC = -22¢ PC) 
013270 001367 BNE =—-_- . -20 
3637 013272 LET (SP) := (SP) - #1 ;ONE LESS ITERATION 
013272 005316 DEC = (SP) 
3638 013274 UNTIL (SP) EQ #0 sUNTIL = 0 
013274 005716 TST (SP) 
013276 001361 BNE 502048 
3639 013300 LET SP := SP + #2 ;CORRECT THE STACK 


oe or eeend 


ce = 





GLOBAL AREAS MACRO M1200 28-MAR-85 15:28 PAGE 77 
, GLOBAL SUBROUTINES SECTION 


3642 $ SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 

3643 $ CONDITION ERROR. 

3644 F INPUTS: 

3645 3 OUTPUTS: 

3646 8 REGISTERS: 

+44 ; CALLS: 

3649 013306 TCCO:: LET HRDCNT(RS) := HRDCNT(RS) + #1 ;UPDATE HARD ERROR COUNT. 
013306 005265 003310 INC HROCNT(RS) 

3650 013312 ERRHRD 5,SCERM,STAERM ;REPORT SPECIAL CONDITION ERROR. 
013312 104456 TRAP CS$ERHRD 
013314 000005 -WORD 5 
013316 004324 -WORD SCERM 
013320 005640 -WORD STAERM 

3651 013322 004737 014436 JSR PC ,RAMDUM ;GO DO RAM DUMP 

3652 013326 000207 RTS PC ;RETURN. 

3653 

3654 

3655 

3057 

3658 3 SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, ATTENTION CONDITION. 

3659 ; THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 

3660 3 SUCH AS GOING OFFLINE OR COMING ONLINE. 

3661 3 aay f 

3662 3 OUTPUTS: 

3663 3 REGISTERS : R2,R4 

aes 8 CALLS: DROPU 

3666 013330 TCC1:: ERRDF 6,ATTNM,STAERM ;REPORT ATTENTION-UNIT OFF LINE. 
013330 104455 TRAP CSERDF 
013332 000006 -WORD 6 
013334 004431 . WORD ATTNM 
013336 005640 -WORD STAERM 


3667 013340 004737 014436 JSR PC ,RAMDUM 3GO DO RAM DUMP 
3668 013344 000207 RTS PC sRETURN. 


A 


a 


TTT em A a Sm ne 


| GLOBAL 
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MACRO M1200 28-MAR-85 15:28 PAGE 78 
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3696 
3697 


3695 
0 


013472 


032737 
001404 
105737 
001401 
000452 


023727 
001011 


023727 
001005 
023727 
001001 
000435 


032737 
001431 


105737 


105737 
001020 


105737 
001403 


105237 
000402 


005265 


000002 
003532 


002114 


003432 
003426 


170002 


003533 
003534 


003540 


003505 


003504 


003270 


——— ee oe ee ee 


002346 


000003 


100011 
104410 


002346 


TCC2:: 





SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 
A pity A ard Na HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
re Ay BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT, EOT. 


OUTPUTS: 
REGISTERS: 
CALLS: 


E8 Tintin, SMR Rt sé | 
| 
| 


IF #X0.BOT SETIN MSGPKT+MS.XSO ANDB EXPBOT NE #0 THEN 
B oer ee ee j 


2 
TSTB EXPBOT 
BEQ 50205$ 
;IF AT BOT AND BOT IS EXPE 


; CTED: 
—" ;RETURN-TCC2 CAUSED BY EXPECTED BOT. 
50205$ 
IF L$TEST EQ #3 THEN 
CMP L$TEST, #3 
BNE 50206$ 
IF PCMDWD EQ #WTM AND CMDWRD EQ #SRR THEN 
CMP PCMOWD , ¢WTM 
BNE 50207$ 
CMP CMOWRD , #SRR 
BNE 50207$ 
BR TC2RTN 
ENDIF 
50207$: 


ENDIF 


50206$: 
IF #XO.RLS!XO.RLL!XO.TMK!XO.LET!X0.BOT SETIN MSGPKT+MS.XSO THEN 
BIT #X0.RLS!XO.RLL!XO. TMK!XO.LET 


BEQ 50210$ 
;IF TCC2 CAUSED BY ANYTHING BUT EOT: 
IFB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 
| 
| 
| 


50211$: 
;IF_NOT IN RANDOM OR IF CMD IS WTV: 


IFB IRE EQ #0 THEN ;IF RFC ERROR REPORTS ARE ALLOWED: 
TSTB IRE 


BNE 50213$ 

IFB ERRREC NE #0 THEN ;IF WE ARE IN ERROR RECOVERY THEN: 
TSTB ERRREC 
BEQ 50214$ 

LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE FLAG FOR LOG. 

INCB UNRE 

ELSE sELSE - IF NOT IN ERROR RECOVERY: 

BR 50215$ 


50214$: 
LET SCCNT(RS) := SCCNT(RS) + #1 ;INCREMENT THE SPEC COND COUNTER. 
Morr INC SCCNTCRS) 


50215$: 
LET HROCNT(RS) := HRDCNTC(RS) + #1  ;UPDATE HARD ERROR COUNT. 








| GLOBAL AREAS MACRO M1200 28-MAR-85 15:28 PAGE 78-1 | 
| GLOBAL SUBROUTINES SECTION SEQ 0096 
013472 005265 003310 INC HROCNTC(RS) 
3698 013476 ERRHRD 7,TSAM,STAERM sREPORT TAPE ons ALERT. 
013476 104456 CSERHRD 
013500 000007 TWORD 7 
013502 004532 “WORD TSAM 
013504 005640 -WORD STAERM 
3699 013506 004737 014436 JSR PC ,RAMDUM GO DO RAM DUMP ! 
3700 013512 ENDIF 
013512 50213$ 
3701 013512 ENDIF | 
013512 50212$ 
3702 013512 ENDIF 
013512 50210$ 
44 013512 000207 TC2RTN: RTS PC sRETURN. 
3705 
3706 
3707 
3709 
3710 ; THE SPECIFIED FUNCTION WAS NOT ee BITS OF INTEREST ARE 
3711 ; RMR, OFL, VCK, BOT, ILC, WLE, ILA, AND NBA. 
3712 ; NPUTS: 
3713 ; OUTPUTS: 
3714 ; REGISTERS: R2,R4 
aria ; CALLS: DROPU 
3717 013514 TCC3:: ERRDF 8,FUNRM,STAERM sREPORT FUNCTION REJECT. 
013514 104455 TRAP CSERDF 
013516 000010 -WORD 8 
013520 004447 -WORD FUNRM 
013522 005640 -WORD STAERM 
3718 013524 004737 014436 JSR PC ,RAMDUM :GO DO RAM DUMP 
3719 013530 004737 017770 JSR PC,DROPU sDROP THE UW _T. 
3720 013534 000207 RTS PC ;RETURN. 


ee ee 








-_—_— ee ee ee 


| GLOBAL AREAS MACRO M1200 28-MAR-85 15:28 PAGE 79 ; 
| GLOBAL SUBROUTINES SECTION SEQ 0097 


013644 
3754 013652 LET WTYCMD := CMDPKT ; 
013652 013737 002314 015314 MOV CMDPKT , WTYCMD 


I 
3722 ; SUBROUTINE TO HANDLE TERMINATION CLASS - 4, RECOVERABLE ERROR. 
3723 ; TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 
3724 ; THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 
3725 ; ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. 
3726 ; 2 WRITE-ERROR-RECOVERY ALGORITHMS CAN BE SELECTED: 
3727 ; THE FIRST ONE, VIA BADTSW SWITCH, DOES DETECT BAD SPOTS ON TAPE. 
3728 i IT CALLS A WRITE RETRY SUBR UNTIL > RECORD IS RECOVERED 
3729 ; OR 20 BAD SPOTS HAVE BEEN LOGGED. AFTER LOGGING 256 BAD 
3730 ; ro ae A BAD TAPE OVERFLOW MSG IS PRINTED AND THE 
3731 ; UNIT DROPPED. 
3732 ; THE SECOND ALGORITHM ISSUES THE TK25 WRITE RETRY COMMAND 
3733 ; UP_TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING 
3734 ; WITH THE NEXT RECORD ON RECOVERY. 
3735 ; INPUTS: 
3736 ; OUTPUTS: 
3737 ; REGISTERS: R2,R4. 
it 4 ; CALLS: RTLE, EXCUTE, GOWAIT, DROPU, WRTY 
3740 013536 TCC4:: IF DEVTBLCRS) EQ #NINUSE THEN 
013536 026527 002536 177774 CMP DEVTBLCRS), #NINUSE 
013544 001002 BNE 50216$ 
3741 013546 000137 014254 JMP 3$ 
3742 013552 ENDIF 
013552 50216$: 
3743 013552 IF CMDLG EQ #2 ANDB BADTSW NE #0 THEN 
013552 023727 003434 000002 CMP CMOLG, #2 
013560 001152 BNE 50217$ 
013562 105737 002211 TSTB BADTSW 
013566 001547 . BEQ 50217$ 
3744 013570 IFB ERRREC EQ #0 ANDB ERCVER NE #0 THEN 
013570 105737 003505 TSTB ERRREC 
013574 001011 BNE 50220$ 
013576 105737 002207 TSTB ERCVER 
013602 001406 BEQ 50220$ 
3745 013604 ERRSOFT 9,RERM,STAERM ; 
013604 104457 TRAP CSERSOFT 
013606 000011 -WORD 9 
013610 004644 -WORD RERM 
013612 005640 -WORD STAERM 
3746 013614 004737 014436 JSR__ ~PC,RAMDUM 3GO DO RAM DUMP 
3747 013620 ENDIF 
013620 50220$: 
3748 013620 IFB IREC EQ #0 THEN ; 
013620 105737 002210 TSTB IREC 
013624 001125 BNE 50221$ 
3749 013626 LET ERRREC :B= ERRREC + #1 ;RETRY FLAG FOR EXCUTE SUBR: DON'T UPDATE REC CNT 
013626 105237 003505 NCB ERRREC 
3750 013632 LET WRTYER :B= WRTYER + #1 ;REWRITE ERROR FLAG FOR WRTY SUBR 
013632 105237 003500 TYE 
3751 013636 IFB WRTYFG EQ #0 THEN sFIRST RETRY ON THIS RECORD: SUBSEQUENT 
013636 105737 003477 TSTB WRTYFG 
013642 001115 BNE 50222$ 
3752 sRETRIES WITH TCC4 ERRORS BY-PASS THIS SECTION | 
3753 013644 LET WTYWRD := CMDWRD sSAVE WRITE COMMAND PACKET 
013737 003426 015316 MOV CMDWRD , WTYWRD 
| 


| GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3755 013660 

013660 

3756 013666 

3757 013672 

3758 013676 

013676 

3759 013676 

3760 013676 

013676 

3761 013702 

013702 

3762 013706 

013706 

gree 013712 
0 

3765 013726 

3766 rep les 

3767 reg tg 


3768 
3769 rf di 


0 
3770 orerks 


3771 o13764 
3772 013772 
3773 013776 
3774 013776 


014004 
3775 eptes 


014022 
3776 014026 
3777 014032 
014032 
3778 014036 
014036 
3779 014044 
014044 


ee ee 
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013737 
105237 
105237 


005265 
005037 
105037 
004737 
026527 
001001 
000552 


105737 
001404 
027727 
103754 


105737 
001442 


027727 
103405 


113737 
105037 


027727 
103423 


012746 
012746 
010600 
104414 
062706 
004737 
005065 
113737 
012775 


0C2322 
003503 
003477 


003250 
003474 


003476 
014736 


002536 


003500 
167564 


003500 
167546 
002207 
002207 
167524 


015407 
000001 


017770 
003330 
003530 
002334 


015320 


177774 


000050 


000050 


003530 


001000 


002207 
002456 


1$: 


LET WTYBRF 
LET RWERR :B= RWERR + #1 
LET WRTYFG :B= WRTYFG + #1 
REPEAT 


:= CMDPKT+CP.CNT ; 


50223$: 
;COUNT GLOBAL WRITE RETRIES 
WRTYCTCRS) 
;CLEAR # OF RETRIES PER RECORD 
RETRYC 
sCLEAR # OF REPEATS 


LET WRTYCTCRS) := WRTYCTCRS) + #1 
LET RETRYC := #0 


LET RPTCNT :B= #0 


CMDPKT+ * CNT ,WTYBRF 


MOV 
;LOG SUBR FLAG: COUNT WRT ERROR 
8 RWERR 
sRETRY IN PROGRESS FLAG 
INCB WRTYFG 


RPTCNT 
JSR PC,WR ;CALL WRITE RETRY 
oF DEVTBLCRS) EQ #NINUSE THEN 
CMP DEVTBLCRS), @NINUSE 
BNE 50224$ 
BR 3$ 
ENDIF 
50224$: 
UNTILB WRTYER EQ #0 OR ABTPT HIS #40. ;REPEAT RETRIES ON SAME RECORD 
TSTB WRTYER 
BEQ 50225$ 
CMP @BTPT , #40 
BLO 50223$ 
50225$: 
;UNTIiL RECOVERED OR 20 BAD SPOTS 
IFB WRTYER NE #0 THEN 
TSTB pAb 
BEQ 0226$ 
IF @BTPT HIS #40. THEN ;WHEN 20 BAD SPOTS LOGGED CTWR) 
CMP @BTPT , #4 
BLO 502278 
LET TC4STO :B= ERCVER 
MOVB ERCVER, TC4STO 
LET ERCVER :B= #0 ;REMOVE THE MASK 
CLRB ERCVER 
ENDIF 
50227$: 
IF @BTPT HIS #512. THEN 
@BTPT, #512. 
BLO 50230$ 
PRINTB #BTMSG2 ;BAD TAPE OVERFLOW MESSAGE 
MOV #BTMSG2, -( SP) 
MOV P,RO 
TRAP CSPNTB 
ADD #4,SP 
JSR PC ,DROP ;DROP THE UNIT. 
LET RECCNTCRS) + #0 3 
CLR RECCNTC(RS) 
LET ERCVER :B= TC4STO ;RESTORE THE MASK 
MOV! TC4STO,ERCVER 
LET @TSDBCRS) := #RWCPK ;REWIND UNIT 
MOV #RWCPK , ATSDBC RS) 


GL 
GL 


AL AREAS 


3780 


3781 


014052 
014052 


3782 014 


0 
3783 
0 


3784 
3785 
3786 
3787 


0 
3788 
0 


0 
3789 

0 
3790 

0 
3791 


3792 
3793 


3794 


3795 
0 


01 
3796 

0 
3797 

0 
3798 

0 
3799. 


3800 
0 


014174 


ll 
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000402 
000137 


105037 
105237 
013737 


000402 


105237 


000463 
004737 


023727 
003411 


012702 
006202 


023702 
002403 


052737 


005237 


013676 


003477 
003551 
015316 


003504 


014600 
003434 


000020 


003474 


020000 


003474 
002207 


014436 


003474 


003432 


000002 


002314 


ELSE 


JMP 
ENDIF 
ENDIF 
LET WRTYFG :B= #0 


LET MISCFG :B= MISCFG + #1 


LET PCMDWD := WTYWRD 
ENDIF 
ELSE 


LET UNREC :B= UNREC + #1 
ENDIF 
ELSE 


JSR PC,RTLE 
IF CMDLG GT #2 THEN 


LET R2 := #RRECL SHIFT -1 


IF RETRYC GE R2 THEN 


LET CMDPKT := CMDPKT SET.BY #0PP.C 


ENDIF 
ENDIF 





—--——_—_—-—-+ 


SEQ 0099 : 


BR $0231$ 
50230$: 
;LOOP 


50231$: 


50226$ 
sRETRY COMPLETE FLAG 
CL WRTYFG 
;D0 NOT HALT ON THIS CMD FLG 


I ISCFG 
sRESTORE ORIGINAL WRT CMD AFTER RECOVERY 
MOV WTYWRD , PCMDWD 


50222$: 


BR 50232$ 
50221$: 


INCB UNREC 
50232$: 
50233$ 
50217 
;CHECK FOR RETRY LIMIT " EXCEEDED. 
;IF READ CMD THEN: 
CMP CMDLG, #2 
BLE 50234$ 
sR2=READ RETRY COUNT LIMIT / 2 
MOV #RRECL ,R2 


ASR 2 
;IF RETRY COUNT IS MORE THAN HALF LIMIT: 
CMP RETRYC,R2 


BLT 50235$ 
sSET OPPOSITE BIT A RETRY2. 
BIS #0PP .C,CMDPKT 

50235$: 


50234$: 
IF RETRYC EQ #0 ANDB ERCVER NE #0 THEN ;IF THIS IS THE ORIGINAL ERROR THEN: 
TST RETRYC 


ERRSOFT 9,RERM,STAERM 


JSR__ PC, RAMDUM 
ENDIF 


LET RETRYC := RETRYC + #1 


BNE 50236$ 
TSTB ERCVER 
BEQ 50236$ 

sREPORT RECOVERABLE ERROR 

TRAP CSERSOFT 

-WORD 9 


-WORD RERM 
-WORD STAERM 
:GO DO RAM DUMP 
sPROVIDED OPERATOR oo ENABLED THE REPORT 


02 
sUPDATE RETRY COUNT. 
INC RETRYC 


| GLOBAL 


AREAS 


3804 014200 
014200 
3805 014206 
014206 
014212 
3806 014214 
014214 
014222 
3807 014224 
3808 014226 
014226 
3809 014226 
014226 
3810 014232 
014232 
014234 
3811 014236 


3812 014242 
3813 014246 


3815 014254 
014254 
3816 014254 
014254 
3817 014254 


ee ee we 
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052737 


105737 
001016 


105237 
012602 
012602 
004737 
000137 
000402 


105237 


000207 


001000 
002210 


002536 


003505 


010774 
011470 


003504 


002314 


177774 


3$: 


LET CMDPKT 





J8 


:* CMDPKT SET.BY #MOD.Ci 


IFB IREC EQ #0 THEN 


;SET RETRY BIT IN CMD PACKET 
;IF ERROR RECOVERY ENABLED: 
TSTB 


IF DEVTBL(RS) EQ #NINUSE THEN 


BR 3$ 


ENDIF 


LET ERRREC :B= ERRREC + #1 


POP R2,R2 

JSR PC, EXCUTE 

JMP GOWAIT 
ELSE 


LET UNREC :B= UNREC + #1 


ENDIF 
ENDIF 
RTS PC 


IREC 

50237$ 
CMP DEVTBL(RS), #NINUSE 
BNE 50240$ 


50240$: 
;SET ERROR RECOVERY FLAG. 
ERRREC 
;POP 2 RTN ADRS FROM STACK. 
MOV CSP Ds. R2 


MOV ¢ »R2 
sGO EXECUTE THE RETRY’ COMMAND . 

;GO WAIT FOR INTERRUPT + CHECK STATUS. 
;ELSE IF ERROR RECOVERY IS NOT ENABLED: 

BR 50241$ 

50237$: 
;SET UNRECOVERASLE ERROR FLAG. 

INCB UNREC 

50241$: 

50233$: 


;RETURN 


me ae ee 
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38 

3827 014256 004737 

3828 014262 
014262 


014266 
3829 014270 
014270 


014276 
3830 014300 004737 

38631 014304 

014304 

3832 014304 
014304 005237 

3833. 014310 
014310 105737 
014314 001016 
014316 105237 
14322 005265 
14326 016577 


014334 012602 
014336 012602 
004737 


3839 014344 000137 
014350 000402 
014352 105237 


3819 
3820 
3821 
3822 
3843 014356 000207 
| 
| 


014600 
003474 


014436 


003474 


002210 


003505 
003330 
003330 


010774 
011470 


003504 


167060 


TCCS:: 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 
TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
ERROR AND RE-ISSVE THE ORIGINAL COMMAND. 


OUTPUTS: 
REGISTERS: R2,R4. 
CALLS: RTLE, EXCUTE, GOWAIT, DROPU. 
JSR PC,RTLE ;CHECK FOR RETRY LIMIT EXCEEDED 
IF RETRYC EQ #0 THEN sIF THIS IS THE ORIGINAL ERROR THEN: 
TST RETRYC 
BNE 50242$ 
ERRSOFT 10,RERM,STAERM sREPORT RECOVERABLE ERROR. 
TRAP CSERSOFT 
-WORD 10 
-WORD RERM 
-WORD STAERM 
JSR PC ,RAMDUM ;GO DO RAM DUMP 
ENDIF 
50242$: 
LET RETRYC := RETRYC + #1 ;UPDATE RETRY COUNTER. artave 
IFB IREC EQ #0 THEN ;IF ERROR ete Sy ae 


BNE 50243$ 
LET ERRREC :B= ERRREC + #1 ;SET ERROR RECOVERY FLAG. 

INCB ERRREC 
LET RECCNT(RS) := RECCNTC(RS) + #1 sUPDATE REC COUNT 


ate unt ive 
LET @DATAWT := RECCNTC(RS) ;AND INSERT IT INTO WR 


POP R2,R2 ;POP 2 RTN ADRS FROM STA 
MOV (SP)+,R2 
MOV (SP)+,R2 
JSR PC,EXCUTE ;GO RE-ISSUE THE COMMAND. 
JMP GOWAIT ;GO WAIT FOR INTERRUPT + CHECK STATUS. 
ELSE ;ELSE IF ERROR RECOVERY IS NOT ENABLED: 
B04 0243$: on 
LET UNREC :B= UNREC «+ #1 ;SET UNRECOVERABLE ERROR FLAG. 
INCB UNREC 
ENDIF 
502443: 
RTS PC ;RETURN. 


TyRECCNTCRS), »@DATAWT 


ee ne me 


SEQ 0101 


— ee em 


GLOBAL 


‘GLOBAL SUBROUTINES SECTION 


3847 
3848 
3849 
3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 


3863 


014360 
014360 
014366 004737 


014406 
014412 000207 


ed 


002334 002456 
012124 


014436 
017770 





TCC6:: 


L8 
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INE TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 


SUBROUT 

TAPE POSITION HAS BEEN LOST. THE ONLY Se te RECOVERY PROCEDURE 
IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS Maes OR 
SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 
COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 
eure, FROM THE TEST SEQUENCE. 


OUTPUTS: 

REGISTERS: R2, R4 

CALLS: RTLE, WSSR, EXCUTE, GOWAIT, DROPU 

LET @TSDBC(RS) := @RWCPK sISSUE A REWIND COMMAND, 


Vv 
sWAIT FOR SUBSYSTEM READY, 
sREPORT UNRECOVERABLE ERROR. 


- WORD 
- WORD 


JSR PC,WSSR 
ERROF 11,URERM,STAERM 


@RWCPK , ATSDBCRS ) 


CSERDF 
11 


URERM 
-WORD STAERM 


JSR PC,RAMDUM GO DO RAM DUMP 
JSR PC ,DROPU ;DROP THE UNIT. 
RTS PC sRETURN 


—-— I etieeetieitainanenennenlaenenenetnnn Renan ERRREREIREEeeEEEEEnEeeemet anne 


SEQ 0102 


GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


3865 


3892 014524 
3893 014532 
3894 014536 
3895 014544 
3896 014552 
3897 014556 
014556 
014562 
014566 
014570 
014572 
3898 014576 
014576 


pes 014576 





— — ee ee 
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105737 
001455 


014436 
017770 


002214 


005320 
000001 


000004 
000010 
000020 
016324 
000200 
016324 
000016 
000214 
016324 
000020 
000060 
016324 
005462 
000001 


000004 


003406 
003342 


003342 
003406 
003342 


003406 
003342 


TCC?:: 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 
ERROR. THE | ary STEM IS INCAPABLE OF PROPERLY PERFORMING 
COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 
REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 
ao hE INFORMATION ON THE TYPE OF FATAL ERROR. 


OUTPUTS: 

REGISTERS: R2, R4 

CALLS: 

ERROF 12,FATSM,STAERM sREPORT FATAL SUBSYSTEM a 
. WORD 
. WORD 
. WORD 


JSR PC ,RAMDUM 


JSR PC ,DROPU ;DROP THE UNIT 
RTS PC ;RETURN. 
IFB RAMWRT NE #0 THEN 
TSTB RAMWRT 
BEQ 50245$ 
PRINTX #@RAMFHR 
MOV 
MOV 
MOV 
TRAP 
ADD 
MOV 08. ,RAMSIZ ;RAM FIELD IS 8 BYTES LONG 
MOV $20, RAMHLD ; COMMAND — Ai ADDRESS 
JSR PC, RAMER ;READ AND PRINT THEM 
MOV 9200, RAMHLD : CHARACTERISTICS PACKET ADDRESS 
JSR PC, RAMER ;READ AND PRINT THEM 
MOV 014, »RAMSIZ ;RAM FIELD IS 8 BYTES LONG 
MOV 0214, RAMHLD ;MESSAGE PACKET ADDRESS 
JSR PC ,RAMER ;READ AND PRINT THEM 
MOV $16. ,RAMSIZ ;RAM FIELD IS SIXTEEN BYTES LONG 
MOV #60 ,RAMHLD ; SENCE BYTES ADDRESS 
JSR PC,RAMER ;READ AND PRINT THEM 
PRINTX @RAMLIN 
MOV 
MOV 
MOV 
TRAP 
ADD 
ENDIF 
502453: 
RTS PC 


SEQ 0103 


CSEROF 


12 
FATSM 
STAERM 


ORAMLIN, - (SP) 
@1,-(SP) 

SP ,RO 

CSPNTX 


ee eee Sl -- 


GLOBAL AREAS 
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003434 


0 4 
3912 014616 014436 
3913 014622 017770 
3914 014626 


012602 

3915 014630 000441 

3916 014632 
0146 

3917 014632 

14632 

3918 a eeee 


003503 
003434 


105237 


023727 
001020 


023727 
001013 


105237 


0 
3919 014646 
01 003474 


0 
3920 pring 
3921 pres} 


003504 


014436 
017770 


012602 


000413 


4706 023727 003474 


001007 
105237 


104456 
000016 


004404 
005640 


003504 


000002 


000020 


000020 


RTLE:: 


N8 
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ROUTINE TO CHECK FOR RETRY LIMIT emcees PRINTS ERROR MESSAGE 
DROP READ. 


SUB 

IF EXCEEDED AND 
INPUTS: 

OUTPUTS: 
REGISTERS: R2, R4. 
CALLS: DROPU 

IF CMOLG EQ #0 THEN 
ERROF 11,URERM,STAERM 
JSR PC ,RAMDUM 

JSR PC ,DROPU 

POP R2 

BR RTLRITN 

ENDIF 

LET RWERR :B= RWERR + #1 
IF CMOLG EQ #2 THEN 


IF RETRYC EQ @WRECL THEN 


LET UNREC :B= UNREC «+ #1 
ERRDF 14,RLEXM,STAERM 


JSR = PC,RAMDUM 
JSR PC,DROPU 
POP Re 


ENDIF 
ELSE 


IF RETRYC EQ @RRECL THEN 


LET UNREC :B= UNREC + #1 
ERRHRD 14,RLEXM,STAERM 


UNIT UNLES 


COMMAND IS A 


sIF CMD IS NOT A_READ OR WRITE THEN: 
TST CMOLG 


BNE 50246% 
sREPORT UNRECOVERABLE ERROR. 
TRAP CSEROF 
-WORD ii 
-WORD URERM 
-WORD STAERM 
:GO DO RAM DUMP 
sDROP THE UNIT. 
MOV (SP )+,R2 
sAND RETURN. 


502463: 
;SET READ/WRITE ERROR FLAG. 
RWERR 
;IF CMD IS A WRT OR WTM: 
CMP 


CMOLG, #2 
BNE 50247$ 
sIF RETRY COUNT HAS REACHED LIMIT: 
CMP RET He . OWRECL 


BNE 
sSET UNRECOVERABLE FLAG 
UNREC 
sREPORT RETRY LIMIT wees 


RAP CSEROF 
-WORD 14 
-WORD RLEXM 
-WORD STAERM 
GO DO RAM DUMP 
;DROP THE UNIT. 
MOV (SP)+,R2 
50250$: 
sELSE - CMD IS A READ: 
BR 50251% 


5 
;IF RETRY COUNT HAS REACHED LIMIT: 
CMP est" , ORRECL 


BNE 
sSET UNRECOVERABLE FLAG 


UNREC 

sREPORT RECOVERABLE ERROR. 
TRAP CSERHRD 
-WORD 14 
-WORD  RLEXM 
-WORD STAERM 


SEQ 0104 


ieee AREAS 


———— ee 


MACRO 


M1200 


OBAL SUBROUTINES SECTION 


3930 014732 
014732 
3931 014734 
014734 
3932 014734 
014734 
3933 014734 
3934 


0 
3965 


012602 


026527 
001537 


004737 


105037 
004737 


026527 
001003 


112737 


105237 
123727 


005237 


002536 


015534 


003500 
015710 


002536 
000003 
003476 


003476 
003500 


003474 


177774 


177774 


003476 





RTLRTN: 


WRTY 


B9 
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IF DEVTBL(RS) EQ @NINUSE THEN 





SEQ 0105 
ete MOV (SP)+,R 
*, 2 
ENDIF 
50252$: 
ENDIF 
50251$: 
RTS PC ;RETURN 
SUBR TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD. 
REWRITE RECORD ON SAME SPOT: REPEAT 4 TIMES. 
IF ALL 4 REPEATS CORD IS RED 
AND A RECOVERABLE WRITE ERROR IS LOGGED. 
IF ANY OF 4 REPEATS BAD, ERASE BAD RECORD, LOG SUSPECTED 
BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP TO 4 REPEATS EACH. 
IF AFTER 4 RETRIES ERASE IT, EXIT WITH 
ERROR FLAG WRTYER SET, PRINTING RETRY FAILED. 
THIS ALL SCHEME IS REENTERED 20 TIMES nan IE 20 BAD 
SPOTS MAX ARE ALLOWED. 
INPUTS: 
OUTPUTS: 
REGISTERS: R3,R 
CALLS: BORERS, REWRT 
: IF DEVTBL(RS) NE @NINUSE THEN ;IF DRIVE NOT DROPPED 
CMP DEVTBL(RS), @NINUSE 
BEQ 50253$ 
BEGIN RETRY 
REPEAT 
50255$: 
BEGIN REPEAT 
REPEAT 
502573: 
JSF PC,BORERS ;BACKSPACE/ERASE ONE RECORD 
LE? WRTYER :B= #0 ;CLEAR WRITE RETRY ERROR 
CLRB sO WRTYER 
JSR PC,REWR ;REWRITE RECORD ON SAME SPOT 
IF DEVIBECRS) EQ @NINUSE THEN 
CMP DEVTBL(RS), @NINUSE 
BNE 50260$ 
LET RPTCNT :B= #3 
MOVB #3, RPTCNT 
ENDIF 
502605: 
LET RPTCNT :B= RPTCNT + #1 ;COUNT REPEATS 
INCB = RPTCNT 
UNTILB RPTCNT EQ #4 ORB WRTYER NE 80 ;LIMIT: 4 REPEATS OR RECOVERED 
CMPB Ss«aRPTCNT, 64 
BEQ 261 
TSTB WRTYER 
BEQ 50257$ 
50261$: 
END REPEAT : 
50256$: 
LET RETRYC := RETRYC + @1 sCOUNT REIRIES 
INC RETRYC 


a ee + Ce 


—_— 2 ee ae oe one 
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‘GLOBAL SUBROUTINES SECTION SEQ 0106 
015026 026527 002536 177774 CMP DEVTBLCRS), @NINUSE 
015034 001002 BNE 50262$ 
3967 015036 000502 bR 3$ 
3968 015040 ELSE 
015040 000400 BR 50263$ 
015042 50262$: 
3969 015042 ENDIF 
015042 50263$: 
3970 015042 IFB WRTYER EQ #0 THEN : 
015042 105737 003500 TSTB WRTYER 
015046 001001 BNE 50264$ 
3971 015050 LEAVE RETRY s;EXIT RETRY LOOP IF RECOVERED 
015050 000457 BR 50254$ 
3972 015052 ELSE PF 
015052 50264$: 
3973 O1 IFB ERCVER NE #0 THEN 3 
015052 105737 002207 TSTB Soteke 
015056 001415 BEQ 50266 
3974 eraees PRINTB #BTMSG1,RETRYC,<B,RPTCNT> ;PRINT = CTED sy 
015062 153716 003476 RPTCNT ,( SP) 
015066 013746 003474 RETRYC, -(SP) 
015072 012746 015322 MOV @BTMSG1,-(SP) 
015076 012746 3 MOV #3,-(SP) 
015102 O01 MOV »RO 
015104 104414 TRAP C$PNTB 
15106 062706 000010 DD #10,SP 
3975 015112 ENDIF ; 
15112 50266$: 
3976 015112 IF RETRYC EQ #1 THEN ;0N FIRST RETRY, LOGG BAD SPOT 
015112 023727 003474 000001 CMP RETRYC, #1 
015120 001021 BNE 50267$ 
3977 015122 LET BTPT := BTADDR(RS) ;BTPT IS — THE BAD SPOT COUNTER 
015122 016537 002550 003526 BTADDR(RS),.BTPT 
3978 015130 LET R4 := @BTPT + #2 ;AND THE — INDEX 
015130 017704 166372 MOV @BTPT RO 
015134 062704 000002 ADD #2,R4 
3979 015140 LET @BTPT := R4 : 
015140 010477 166362 MOV R4,aBTPT 
3980 015144 IF P4 LOS #40. THEN : 
015144 020427 000050 CMP R4, . 
015150 101005 BHI 50270 
3981 015152 LET R3 := BIPT ;STORE FIRST 20 BAD SPOTS 
015152 013703 003526 MOV BTIPT,R3 
3982 015156 LET R4 := R4 + RB ; 
015156 060304 ADD R3,R4 
3983 015160 LET (R4&) := RECCNTCRS) 3 
015160 016514 003330 MOV RECCNTC(RS),CR4) 
3984 015164 ENDIF 
015164 50270$: 
3985 015164 ENDIF 3 
015164 50267$: 
3986 015164 LET ERSFLG :B= ERSFLG + #1 s;ERASE FLAG 10 ERASE BAD RECORD 
15164 105237 003545 NCB RSFLG 
3987 015170 LET RWERR :B= #0 ;CANCELL “LOG” ERROR FLAG ON FAILING RETRY 
015170 105037 003503 


LET RPTCNT :B= #0 


CLRB WER 
s;CLEAR REPEAT COUNT FOR NEXT RETRY 


ee ee 
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015174 
3989 015200 


015206 
3991 015210 
015210 
3992 015210 
015210 
015214 
3993 015216 
015216 


015222 
3994 015224 


4 

4011 015314 
4012 015316 
4013 015320 
4014 


— ee ce ee ee 
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105037 


023727 
001257 


105737 
001413 


105737 
001410 


012746 


012727 
000000 
013727 
000000 


000000 
000000 
000000 


003476 


003474 000004 


000012 


000372 
002116 
177772 
177756 


000002 


ENDIF 


D9 


UNTIL RETRYC EQ #4 


END RETRY 


IFB WRTYER NE #0 THEN 


IFB ERCVER NE #0 THEN 


PRINTB #BTMSG3 


ENDIF 


ENDI 
ENDIF 
3$: LET 


F 


-(SP) : 


REPEAT 


DELA 


LET 


LET 
RTS 


WTYCMD: .WOR 
WTYWRD: .WOR 
WTYBRF: .WOR 


Y 250. 


(SP) 


SP := SP + #2 


PC 

D 60 
D 60 
dD. (OO 


:= (SP) - #1 
UNTIL (SP) EQ #0 


;LIMIT: 


;LOOP CONTROL 


50273$: 
;WAIT FOR THE UNIT TO STOP 


CLRB P°TCNT 

50265$: 

4 RETRIES 

CMP RETRYC, #4 
50255$ 

50254$: 

TSTB WRTYER 

BEQ 50271$ 

TSTB ERCVER 

BEQ 50272$ 

;PRINT RETRY FAILED 

MOV #BTMSG3, -(SP) 
MOV #1,-(SP) 
MOV 2RO 
TRAP C$PNTB 
ADD #4,SP 

50272$: 

50271$: 

50253$: 

MOV #10. ,-(SP) 
MOV #250. ,(PC)+ 
-WORD O 
MOV L$DLY,(PC)-+ 
. WOR’ 0 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
(SP) 


;ONE LESS sinemae! > 
;'TILL ZERO! 


;POP THE STACK 


TST 


sSTORAGE FOR WRITE CMD WHILE RETRYING 
sSTORAGE FOR WRITE CMD WORD WHILE RETRYING 
sSTORAGE FOR WRITE BPCR WHILE RETRYING 


(SP) 
BNE 50273$ 
ADD #2,SP 


ee ee ee 


2 
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SUBROUTINES SECTI 


4015 
4016 015322 045 101 123 
015325 0 


36 104 123 

015341 120 117 124 
040 101 1 

015347 124 105 122 
015352 040 1 


054 045 
015371 104 061 045 
015374 101 122 


015405 116 000 

4017 015407 045 116 045 
015412 101 102 01 
015415 104 124 
015420 101 120 105 
015423 040 117 126 


0 000 
4018 oteers 045 101 iss 


4019 


BTMSG1: 


BTMSG2: 


BTMSG3: 


-ASCIZ /#ASUSPECT BAD SPOT AFTER SD1#A RETRY, #D1SA REPEATSN/ 


-ASCIZ /s#NSABAD TAPE OVERFLOW: CHANGE CARTRIDGE !sNsN/ 


-ASCIZ /#ARETRY FAILED ON BAD SPOT...ERASED!sN/ 


-EVEN 


ee ee eee 


SEQ 0108 


nn en ae 
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4027 


015742 
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013737 
012737 


013737 
042737 


013737 
012737 


105737 
001426 


013737 
012737 
013737 
013737 

37 


105037 


000207 


026527 
001441 


013737 
013737 
013737 
013737 


GLOBAL SUBROUTINES SECTION 


003426 
104410 
003426 
004000 
002314 
000001 
003434 
007672 
010774 
011470 
020274 
003545 


020274 
003545 


002536 


003426 
015316 
015314 
002314 


003432 
003426 


002314 
002314 


003430 
002316 


003432 
003426 
002314 
003430 


177774 


003432 
003426 
002314 
003430 


BORERS: : 


REWRT : 





SUBR TO ae tg ONE RECORD 


IF THE ERASE F 
INPUTS: 
OUTPUTS: 
REGISTERS: 
CALLS: 

LET PCMDWD := CMDWRD 
LET CMDWRD := #SRR 


i= 


EXCUTE, GOWAIT, CKHAE 


LET CMDPKT := CMDWRD CLR.BY #BRF.C ; 


LET CMDSAV := CMDPKT 

LET CMDPKT+CP.ADL := #1 

LET CMDLG := #0 

JSR PC,CMDAC 

JSR PC, EXCUTE 

JSR PC, GOWAIT 

JSR PC, CKHAE 

IFB ERSFLG NE #0 THEN 
LET PCMDWD := CMDWRD 
LET CMDWRD := #ERS 
LET CMDPKT := CMDWRD 
LET CMDSAV := CMDPKT 


E 
LET ERSFLG :B= #0 


RTS PC 
SUBR TO REWRITE A BADLY WRITTEN RECORD 
IF DEVTBL(RS) NE #NINUSE THEN ;IF DRIVE NOT — 


LET PCMDWD := CMDWRD 
LET CMDWRD WTYWRD 
LET CMDPKT := WTYCMD 
LET CMDSAV := CMDPKT 


SEQ 0109 
LAG IS SET, THEN ERASE THAT RECORD 
ERSFLG DO ERASE 

sSET COMMAND TO SPACE REV 
MOV CMDWRD , PCMDWD 
MOV #SRR , CMDWRD 
MOV CMDWRD , CHDPKT 
BIC #BRF .C,CMDPKT 
MOV CMDPKT , CMDSAV 
MOV #1, CMDPKT+CP . ADL 
CLR CMDLG 

;WHEN ERASE FLAG IS SET, DO ERASE 
TSTB ERSFLG 
BEQ 50274$ 
MOV CMDWRD , PCMDWD 
MOV #ERS , CHDWRD 
MOV CMDWRD , CMDPKT 
MOV CMDPKT , CMDSAV 
CLRB ERSFLG 
50274$: 

DEVTBLCRS), #NINUSE 

BEQ 50275$ 

sRESTORE WRITE COMMAND PACKET 
MOV CMOWRD , PCMDWD 
MOV WTYWRD , CMHDWRD 
MOV WTYCMD , CMDPKT 
MOV CMDPKT , CMDSAV 


| GLOBAL AREAS 
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4057 015750 
015750 
4058 015756 
015756 
4059 015764 
015764 
4060 015772 
4061 015776 
4062 016002 
016002 


016010 
4063 016012 


4067 016022 


ee ee we, 
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013737 
013737 
012737 
004737 
004737 


000207 


003414 
015320 
000002 
007672 
010774 
002536 


011470 
020274 


002316 
002322 
003434 


177774 


LET CMDPKT+CP.ADL := DATAWT ; 


MOV 
LET CMDPKT+CP.CNT := WTYBRF ; _ 
LET CMDLG := #2 $ 
MOV 
JSR PC,CMDAC 
JSR PC,EXCUTE ;RE-WRITE RECORD 
IF DEVTBLCRS) NE #NINUSE THEN on 
BEQ 
JSR PC,GOWAIT ; 
JSR PC, CKHAE ; 
ENDIF 
50276$: 
ENDIF 
50275$: 
RTS PC 


—--—_——_--——— 


SEQ 0110 | 


DATAWT , CMDPKT+CP . ADL 
WTYBRF ,CMDPKT+CP.CNT 
#2,CMDLG 


DEVTBLCRS), #NINUSE 
50276$ 








-_——_—- eee ee 
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GLOBAL SUBROUTINES SECTION SEQ 0111 


re 4 


| 
| 

4069 3 SUBROUTINE TO LOG BYTES READ/WRITTEN. 

4070 3 ALSO UPDATES READ/WRITE ERROR COUNTERS. 

4071 3 INPUTS: 

4072 3 OUTPUTS: 

4073 3 REGISTERS: R2, R3, R4. 

473 ; CALLS: 

4076 016024 LOG:: IFB ERLOG EQ #0 THEN ;IF DATA AND ERRORS HAVE NOT BEEN LOGGED THEN: | 
016024 105737 003502 TSTB ERLOG 
016030 001126 BNE 50277$ 

4077 016032 LET ERLOG :B= ERLOG + #1 ;SET LOG DONE FLAG. 

016032 105237 003502 INCB ERLOG 

4078 016036 LET R4 := CMDLG ;GET CURRENT CMD LOGGING CODE. 
016036 013704 003434 MOV CMDLG ,,R4 

4079 016042 IF R4 NE #0 THEN ;IF THERE IS A CODE —, 

016042 005704 TST 
016044 001520 BEQ 503008 

4080 016046 LET R4 := R4 - #2 sADJUST THE CODE FOR TABLE INDEX. 
016046 162704 000002 

4081 016052 LET R2 := RS + BINC(R4) + @CNTBGN ;R2 = ADR OF BYTE COUNT LSW. 
016052 010502 MOV 2 
016054 066402 016310 ADD BINC(R4), R2 
016060 062702 002560 ADD #CNTBGN, R2 

4082 016064 LET (R2) := (R2) + BRFCNT ;ADD BRF TO LSW. 

016064 063712 003424 ADD BRFCNT,(R2) 

4083 016070 IF MSGPKT+MS.RFC LOS BRFCNT THEN ;IF THE RFC IS LOWER OR THE SAME AS BRF THEN: 
016070 023737 002344 003424 CMP MSGPKT+MS.RFC,BRFCNT 
016076 101002 BHI 50301$ 

4084 016100 LET (R2) := (R2) - MSGPKT+MS.RFC ;SUBTRACT RFC FROM EXPECTED BRF. 
016100 163712 002344 SUB MSGPKT+MS ..RFC,(R2) 

4085 016104 ENDIF 
016104 50301$: 

4086 016104 LET R3 := R2 + #10 :R3 = ADR OF 2ND WORD. 

016104 010203 MOV R2,R3 
016106 062703 000010 ADD #10,R3 

4087 016112 WHILE (R2) GT #999. DO 
016112 50302$: 

016112 021227 001747 CMP (R2),#999. 
016116 003404 BLE 50303$ 

4088 016120 LET (R2) := (R2) - #1000. ;UPDATE BYTE COUNT 

016120 162712 001750 SUB #1000. ,CR2) 

4089 016124 LET (R3) := (R3) + #1 ;2ND WORD. 

016124 005213 ‘ INC CR3) 

4090 016126 ENDDO 
016126 000771 BR 50302$ 
016130 50303$: 

4091 016130 LET R2 := R3 + #10 :R2 = ADR OF 3RD WORD. 

016130 010302 MOV R3,R2 
016132 062702 000010 ADD #10,R2 

4092 016136 WHILE (R3) GT #999. DO 

016136 50304$: 
016136 021327 001747 CMP SPF pane 
016142 003404 BLE 5030 
6144 162713 001750 SUB #1000. ,(R3) 
4094 016150 LET (R2) := (R2) + #1 73RD WORD. 


| 
4093 Sieiea LET (R3) := (R3) - #1000.  ;UPDATE BYTE COUNT 
016150 005212 INC (R2) 

| 


ener me ee 
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; GLOBAL SUBROUTINES SECTION SEQ 0112 
4095 016152 ENDDO 
016152 000771 BR 50304$ 
016154 50305$: 
4096 016154 LET R3 := R2 + #10 #R3 = ADR OF 4TH WORD. 
016154 010203 MOV R2,R3 
016156 062703 000010 ADD #10,R3 
4097 016162 WHILE (R2) GT #999. DO 
016162 50306$ : 
016162 021227 001747 CMP (R2), #999. 
016166 003404 BLE 50307* 
4098 016170 LET (R2) := (R2) - #1000. ;UPDAIE BYTE COUNT 
0161706 162712 001750 SUB #1000. ,(R2) 
4099 016174 LET (R3) := (R3) + #1 :4TH WORD. 
016174 005213 INC (R3) 
4100 016176 ENDDO 
016176 000771 BR 50306$ 
016200 50307$: 
4101 016200 IFB RWERR NE #0 THEN ;IF R/W ERROR, UPDATE ERROR COUNT. 
016200 105737 003503 TSTB RWERR 
016204 001440 BEQ 50310$ 
4102 016206 LET R2 := RS + EINC(R4) + @WRREC ;R2 = ADR OF COUNTER. 
016206 010502 MOV RS ,R2 
016210 066402 016316 ADD EINC(R4) ,R2 
016214 062702 002720 ADD #WRREC ,R2 
4103 016220 IFB UNREC NE #0 THEN ;IS THE ERROR UNRECOVERABLE? 
016220 105737 003504 TSTB UNREC 
016224 001404 BEQ 50311$ 
4104 016226 LET R2 := R2 + #10 sYES, POINT TO NEXT COUNTER. 
016226 062702 000010 . A #10,R2 
4105 016232 LET (R2) := (R2) + #1 sUPDATE THE ERROR COUNTER 
016232 005212 (R2) 
4106 016234 ELSE sELSE - IF ERROR IS RECOVERABLE: 
016234 000424 BR 50312$ 
016236 50311$: 
4107 016236 LET (R2) := (R2) + #1 sUPDATE THE ERROR COUNTER 
016236 005212 R2) 
4108 016240 IFB IREC EQ #0 THEN ;IF ERROR RECOVERY IS ENABLED: 
016240 105737 002210 TSTB IREC 
016244 001020 BNE 50313$ 
4109 016246 IFB DROPED EQ #0 ANDB ERCVER NE #0 THEN ;IF UNIT HAS NOT BEEN DROPPED: 
016246 105737 003541 TSTB DROPED 
016252 001015 BNE 50314$ 
6254 105737 002207 TSTB ERCVER 
016260 001412 BEQ 50314$ 
4110 016262 PRINTB #NURTY1,RETRYC sPRINT # OF RETRIES TO RECOVER 
016262 013746 003474 MOV RETRYC, -( SP) 
016266 012746 005167 MOV #NURTY1, -(SP) 
016272 012746 000002 MOV #2,-(SP) 
016276 010600 MOV SP ,RO 
6300 104414 TRAP C$PNTB 
016302 062706 000006 ADD #6, SP 
4111 016306 ENDIF sPROVIDED PRINT HAS BEEN ENABLED 
016306 50314$: 
4112 016306 ENDIF 
016306 50313$: 
4113 016306 ENDIF 


016306 50312$: 


! GLOBAL AREAS 


GLOBAL SUBROUTINES SECTION 


4114 016306 
4115 016306 
016306 
4116 016306 
016306 
4117 016306 
4118 
4119 016310 
4120 016312 
4121 016314 
4122 
4123 016316 


4124 016320 
sik 016322 


te ee 
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BINC: 


EINC : 


ENDIF 
ENDIF 50310$: 
ENDIF 50300$: 
RTS PC 50277$ 
INDEXES TO BYTE COUNTERS. 
0 ;WRITE. 
40 sREAD REV. 
100 sREAD FWD. 
INDEXES TO READ/WRITE ERROR COUNTERS. 
0 sWRITE. 
20 sREAD REV. 
40 sREAD FWD. 


K9 
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‘'RAMER - READ AND DISPLAY SELECTED RAM SEQ 0114 
4130 .SBTTL RAMER - READ AND DISPLAY SELECTED RAM 
3? 

4132 ;ROUTINE TO READ THE SELECTED RAM LOCATIONS 

4134 016324 010546 RAMER:: MOV RS, -(SP) 

4135 016326 010446 MOV R4,-(SP) 

4136 016330 010346 MOV R3,-(SP) 

4137 016332 010246 MOV R2, - 

4138 016334 010146 MOV R1,-(SP) 

4139 016336 012701 003346 MOV #RAMDATA,R1 ;ADDRESS TO SAVE THE RAM DATA 

4140 016342 013702 003342 MOV RAMHLD ,R2 BYTE ADDRESS OF THE FIRST RAM DATA 

4141 016346 013703 003406 MOV RAMS1Z.R3 ;SET THE SIZE OF THE READ UP 

4142 016352 016504 002456 MOV TSDB(RS), R4 ;MOV THE TSOB ADDRESS INTO R4 

4143 016356 005204 INC ;ADD 1 TO IT 

4144 016360 000240 10$: NOP 

4145 016362 004737 012124 JSR PC,WSSR ;WAIT FOR THE SSR TO SET 

4146 016366 110214 MOVB =—-R2, (R4) ;SELECT NEXT RAM ADDRESS 

4147 016370 004737 012124 JSR PC, WSSR ;WAIT FOR SSR TO SET 

4148 016374 117521 002456 MOVB  @TSBACRS),(R1)+ ;READ THE RAM DATA 

4149 016400 062702 000001 20$: ADD #1,R2 :ADDRESS OF THE NEXT RAM LOCATION 

4150 016404 077313 SOB R3,10$ ;NUMBER OF LOCATIONS COUNTER 

4151 016406 013704 003406 MOV RAMSIZ,R4 }GET THE RAM SIZE 

4152 016412 013702 003342 MOV RAMHLD.R2 ;GET THE STARTING RAM ADDRESS 

4153 016416 060204 ADD R2,R4 ;CALCULATE THE END ADDRESS 

4154 016420 162704 000001 SUB #1,R4 ;CORRECT VALUE OF PRINTOUT 

4155 016424 PRINTX #RAMIOP,R2,R4  ;RAM ADDRESS = 10 - 17, ETC. 
016424 010446 MOV R4,-(SP) 
016426 010246 MOV R2,-(SP) 
016430 012746 005377 MOV @RAMIOP , -( SP) 
016434 012746 000003 MOV #3,-(SP) 
016440 010600 MOV PR 
016442 104415 TRAP —- C$PNTX 
016444 062706 000010 ADD $10, SP 

4156 016450 012701 003346 MOV #RAMDATA,R1 ;ADDRESS OF WHERE RAM DATA IS 

4157 016454 013703 003406 MOV RAMSIZ,R3 ;THE SIZE OF THE RAM FIELD READ 

4158 016460 005004 30$: ~ CLR R4 ;NO EXTRA DATA LEFT OVER 

4159 016462 112104 MOVB (R1)+,R4 ;PICK UP BYTE OF RAM DATA 

4160 016464 042704 177400 BIC $177400,R4 ;GET RID OF SIGN EXTEND 

4161 016470 PRINTX #RAMPD,R4 ;"010 211 111 222 377 000 123 134 ETC.” 
016470 010446 MOV R4,-(SP) 
016472 012746 005450 MOV @RAMPD, -( SP) 
016476 012746 000002 MOV #2, -(SP) 
016502 010600 MOV SP.RO 
016504 104415 TRAP — C$PNTX 
016506 062706 000006 ADD 6, SP 

4162 016512 077316 SOB R3,30$ ;LOOP UNTIL ALL PRINTED 

4163 016514 012601 MOV (SP)+,R1 

4164 016516 012602 MOV (SP)+,R2 

4165 016520 012603 MOV (SP)+-R3 

4166 016522 012604 MOV (SP)+.R4 

4167 016524 012605 MOV (SP)+,R5 

4168 016526 000207 50$: RTS p ;RETURN 

4169 ; IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN 

4170 ; TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE, CHECK DATA, 

4171 i READ FORWARD, CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 

H 
4173 ; OUTPUTS: 


ee | eee ee ne eee = 4 
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4 
4177 016530 
016530 
4178 016534 
016534 
016540 
4179 016542 
016542 
016546 
4180 tet ted 
4181 sptind 
4182 016564 
564 


016 
4183 016572 
4184 rsp ba 


4185 spree 
4186 pets 


0 
4187 
4188 016620 
4189 eieeee 


4190 016634 
4191 


0 
4192 Sa etah 
4193 016640 


-_ —- SS 


ae ee ee 
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005037 


105737 
001437 


105737 
001015 


013737 
012737 
ua 
005037 


026527 
001413 


013737 
012737 
012737 
004737 


000207 


003410 
003534 


003544 


003426 
104401 


£90004 
016642 


003410 


002536 


003426 
104001 


000006 
016642 


003432 
003426 
003434 


177774 


003432 
003426 
003434 


; REGISTERS: 
$ CALLS: 
VFYDAT: : 


VFEXC. 
LET CMPDAT := #0 
IFB VFYFLG NE #0 THEN 


IFB STREAM EQ #0 THEN 


LET PCMDWD := CMDWRD 
LET CMDWRD := #RDR 
LET CMOLG := #4 


JSR PC, VFEXC 
LET CMPDAT := #0 


ENDIF 
IF DEVTBL(RS) NE #NINUSE THEN 


LET PCMDWD := CMDWRD 
LET CMDWRD := #RDF 


LET CMDLG := #6 
x. m PC, VFEXC 
ENDIF 
RTS PC 


BTL 

CLR CMPDAT 

;IF DATA IS TO BE VERIFIED: 
TSTB VFYFLG 
BEQ 50315$ 
TSTB STREAM 


BNE 50316$ 
sSAVE THF PREVIOUS COMMAND WORD 

' CMOWRD , PCMOWD 
;COMMAND IS “_aAD REV. 


#ROR , CMOWRD 
;SET UP CMD LOGGING INDEX. 


, CMOLG 
i ae ALL THE RECORDS REV. 
: CLR CMPDAT 
50316$: 


CMP DEVTBL(RS), #NINUSE 
317% 


BEQ 50 
;SAVE THE PREVIOUS COMMAND WOR 


D . 
CMOWRD , PCMOWD 
;COMMAND IS READ FWD. 
#ROF , CMDWRD 
;SET UP CMD LOGGING INDEX. 
#6 , CMDLG 
:GO READ ALL RECORDS FWD. 


50317$: 


50315$: 
;RETURN, 


SEQ 0115 


—— a ee ee ee - 


M9 


GLOBAL AREAS MACRO M1200 28-MAR-85 15:28 PAGE 87 


RAMER - READ AND DISPLAY SELECTED RAM 


4 

4201 016642 
6642 013737 003426 002314 

042737 004000 002314 


105737 003536 
001403 


052737 010000 002314 


6650 
4202 016656 
6656 


6672 013737 002314 003430 
4206 016700 013737 003416 002316 


005037 003420 


016712 023737 003420 003422 


1 
4209 016722 004737 007672 
4210 016726 105737 003544 
4211 016732 001006 


4212 
4213 016734 004737 017666 
421 6740 
016740 026527 002536 177777 
001445 


032737 000400 003426 
016756 001421 
4216 016760 
016760 032765 000002 003516 
016766 001014 
4217 016770 
016770 032765 000001 003516 
001406 


0 
4218 017000 
017000 105737 003543 


01 
4219 017006 004737 017126 
4220 017012 


0 
4221 Ee 
0 
4222 017014 004737 017126 
4223 or rose 
4224 arrose 


1$: 


SEQ 0116 
ot a TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE. 
OUTPUTS: 
REGISTERS: R2 
CALLS: CMDAC, FIRSTU, VFISU, NEXTU, CKHAE. 
:: LET CMDPKT := CMDWRD CLR.BY @BRF.C ;COMMAND PACKET = READ REV OR FWD. 
MOV CMOWRD , CMDPKT 
BIC OBRF .C .CMDPKT 
IFB SWBFLG NE #0 THEN IF BYTES ARE TO BE SWAPPED: 
ire os Ay 
LET CMDPKT := CMDPKT SET.BY @#SWB.C ;SET SWAB BIT IN CMD PACKET. 
BIS @SWB.C .CMDPKT 
ENDIF 
503208: 
LET CMDSAV := CMDPKT ;SAVE COMMAND PACKET 1ST WORD. 
Vv CMDPKT , CMDSAV 
MOV DATARD ,CMDPKT+CP. ADL 1SAVE BUFFER START ADDRESS. 
LET NCNT := #0 ;CLEAR NUMBER OF OPERATIONS. 
WHILE NCNT LT NCNT1 DO ;WHILE THERE ARE othe REMAINING: 
CMP NCNT ,NCNT1 
BGE 50322$ 
JSR PC,CMDAC ;STORE CMD ASCII IN ERROR MSG. 
TSTB STREAM CHE CK IF WE ARE STREAMING 
1$ ;BRANCH OVER Cevre. pam. THIS ENABLES 
:;US TO TEST ONE ty TIME 
JSR PC,FIRSTU ;SET UP FOR FIR ae UNIT 
WHILE DEVTBL(RS) NE END DO SWHILE THERE ARE DEVICES REMAINING: 
CMP geyre, (05) . 9END 
BEQ 50324$ 
IF @M0D.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 
BIT @MOD .CO, CMDWRD 
BEQ 50325$ 
IF #X0.B0T NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT 
BIT #X0.BOT ,EOTFLG( RS) 
BNE 50326 
IF #XO.EOT SETIN EOTFLG(RS) THEN ;8UT IF AT EOT 
BIT @X0.EOT .EOTFLG(RS) 
BEQ 50327$ 
IFB ALLEOT NE #0 THEN ;AND ALL OTHERS AT EOT 
TSTB ALLEOT 
BEQ 503308 
JSR PC, VFISU ; THEN READ VERIFY 
ENDIF :IF one At AT EQT, FREEZE UNIT(S) AT E 
ELSE ;IF NOT AT BOT AND 
BR 50331$ 
3278: 
JSR PC, VFISU 3;NOT AT EOT, READ VFY 
ENDIF 
503315: 
ENDIF 
503263: 


oes ee ee ee 
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RAMER - READ AND DISPLAY SELECTED RAM SEQ 0117 
4225 017020 ELSE sELSE IF CMD IS NOT REVERSE: 
te 000412 3 503328 
4226 017022 IF @X0.EOT NOTSETIN EOTFLG(RS) OR @CMD.CO NOTSETIN CMOWRD THEN 
017022 032765 000001 003516 BIT @X0.EOT ,EOTFLGC(RS) 
017030 001404 BEQ 50333$ 
017032 032737 000001 003426 BIT @CMD.CO,CMOWRD 
017040 001002 BNE 503343 
017042 503333: 
4227 sIF NOT AT EOT OR NOT A MOTION CMD THEN: 
4228 017042 004737 017126 JSR PC, VFISU sISSUVE CMD, CHECK STATUS AND DATA. 
4229 017046 ENDIF 
017046 50334$: 
4230 017046 ENDIF 
017046 50332$: 
4231 017046 105737 003544 TSTB STREAM sCHECK FOR TEST OF ON UNIT AT A TIME. 
4232 017052 001003 BNE 2% ;BR ——o IF STREAMING TESTS. 
4233 017054 004737 017734 JSR PC, NEXTU GO FIND THE NEXT UNIT. 
4234 017060 ENDDO 
017 000727 BR 50323% 
017062 503248: 
4235 017062 004737 020274 23: JSR__—- PC, CKHAE ;CHECK FOR HALT AFTER EACH CMD. 
4236 017066 IF DEVTBL(RS) EQ @NINUSE THEN IF DRIVES BEEN DROPPED EXIT 
017066 026527 002536 177774 CMP DEVTBL (RS), ONINUSE 
017074 001005 BNE 50335$ 
4237 017076 LET NCNT :* NCNT1 - #1 
017076 013737 003422 003420 MOV NCNT1,NCNT 
017104 005337 003420 DEC NCNT 
4238 017110 ENDIF 
017110 50335$: 
4239 017110 LET NCNT :* NCNT + @1 sUPDATE THE RECORD COUNT. 
017110 005237 003420 INC NCNT 
4240 017114 LET PCMDWD := CMOWRD ;SAVE PREVIOUS COMMAND WORD. 
017114 013737 003426 003432 MOV CMOWRD , PCHOWD 
4242 017122 ENDDO 
017122 000673 BR 50321% 


017324 503228: 
4243 017124 000207 RTS PC sRETURN. 


GLOBAL AREAS 
RAMER 
4245 
4246 
4247 
4248 
4249 
4250 


017162 
4259 017164 
4261 

0 


4262 


MACRO M 


023727 
001403 
004737 
000412 
005237 
023737 
003404 
004737 
005037 


000207 
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003416 
000010 


003416 


177777 


010774 


003541 


011470 


003541 


000002 


002114 


017252 


003410 
003410 
017252 
003410 


003516 


000003 


003412 


SUBROUTINE TO ISSUE > AWAIT INTERRUPT, 
+ aaa CHECK DAT 


OUTPUTS: 
REGISTERS: R2 
CALLS: EXCUTE, GOWAIT, CKDATA. 
ISU: : 
LET R2 := DATARD + 68. sINIT READ BUFFER POINTER. 
MOV DATARD ,R2 
ADO #8. ,R2 
WHILE R2 NE DATARD DO sUNTIL 8 BYTES HAVE ween ale 
CMP R2,DATARD 
BEQ 50337$ 
LET -(R2) := @-1 sINIT READ BUFFER. 
#-1,-(R2) 
ENDOO a 
BR 50336$ 
50337$: 


JSR PC,EXCUTE 
IFB DROPED EQ #0 THEN 


sGO EXECUTE THE COMMAND. 


BNE 
:GO WAIT FOR DONE BIT. 


JSR PC,GOWAIT 
ENDIF 
IFB DROPED EQ #0 THEN 


IF #X0.B0T NOTSETIN EQTFLG(RS) THEN 


sIF UNIT HAS NOT BEEN -*¥ THEN: 


50340$: 
;IF UNIT HAS NOT BEEN a" y THEN: 


DROPED 
50340$ 


DROPED 


BNE 50341$ 
; WHEN - INTO BOT, 


#x0.B0T ,EOTF Lor RS) 
50342$ 


BNE 
IF L$TEST NE #3 THEN 

CMP LS$TEST,#3 
BEQ 50343$ 

JSR PC,CKDATA :GO VERIFY DATA. 

ELSE 
BR 50344$ 
50343$: 

INC CMPDAT ;ONE MORE XFER BEFORE A COMPARISON 

IF CMPDAT GT DATRAT THEN 
CMP CMPDAT ,DATRAT 
BLE 50345$ 

JSR PC,CKDATA 
LET CMPDAT := #0 

CLR CMPDAT 

ENDIF 
503453: 

ENDIF 
50344$: 
ENDIF 
50342$: 
ENDIF 
50341$: 
RTS PC 


—— + ——_—— <A LLL cr nT, EE ttt tt tC —  —<— ——_— te. s__——_de.e sc ae. —_—_ * 
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4277 : SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS 
4579 ; AND PRINT ERROR MESSAGE ON MISCOMPARE. 
: : 
42 : OUTPUTS: 
4281 ; REGISTERS: R2, R3, R4. 
ase : CALLS: GCMDA 
4284 017252 CKDATA:: LET R3 := BRFCNT - MSGPKT+MS.RFC ;COMPUTE REC LENGTH READ 
17252 013703 003424 MOV BRFCNT ,R3 
17256 163703 002344 SUB MSGPKT+MS.RFC,R3 
4285 017262 IF R3 EQ #0 THEN ;WHEN NO DATA RECEIVED 
7262 005703 TST 
017264 001015 BNE 50346$ 
4286 017266 ERRHRD 17,WTVERM,DTAERM ;PRINT ERROR AND EXIT 
17266 104456 TRAP CSERHRD 
017270 000021 ‘ 17 
017272 004260 -WORD WTVERM 
17274 005472 -WORD ODTAERM 
4287 01727 PRINTB #DTAER4 ;COMPARE ROUTINE 
017276 012746 005104 MOV #OTAER4, -(SP) 
17302 012746 000001 MOV #1,-(SP) 
17306 010600 MOV »RO 
017310 104414 TRAP CS$PNTB 
17312 062706 000004 ADD #4,SP 
4288 01731 ELSE 
17316 000560 50347$ 
7320 50346$: 
4289 017320 IF R3 HI BRFCNT THEN ;WHEN REC READ IS LONGER 
17320 020337 003424 CMP R3,BRFCNT 
017324 101417 BLOS 50350$ 
4290 017326 ERRHRD 17,WTVERM,DTAERM ; THAN EXPECTED, at gd 
017326 104456 CS$ERHRD 
017330 000021 TWorD 17 
017332 004260 -WORD WTVERM 
017334 005472 -WORD ODTAERM 
4291 017336 PRINTB #DTAERS,CMDPKT+CP.CNT ;AN ERROR MESSAGE 
017336 013746 002322 MOV CMDPKT+CP.CNT,-(SP) 
017342 012746 005125 MOV #O0TAERS, -(SP) 
017346 012746 000002 MOV #2,-(SP) 
017352 010600 MOV SP ,,RO 
017354 104414 TRAP CS$PNTB 
17356 062706 000006 ADD #6,SP 
4292 017362 ELSE ;AND EXIT ROUTINE 
17362 000536 BR 50351$ 
17364 50350$: 
4293 017364 LET CKDCNT := R3 - #1 ; SAVE VERIFICATION LENGTH - 1. 
17364 010337 017662 MOV R3,CKDCNT 
17370 005337 017662 DEC CKDCNT 
4294 017374 005037 017664 CLR CKDFF ;CLEAR # OF BYTES IN ERROR COUNTER. 
4295 017400 005002 CLR R2 s;INIT BYTE COUNTER 
4296 01740 LET R3 := DATAWT ;GET WRITE BUFFER ADDRESS. 
017402 013703 003414 DATAWT ,R3 
4297 017406 LET R4 := DATARD ;GET READ BUFFER ADDRESS. 
017406 013704 003416 DATARD,R4 
4298 017412 IFB TISWB NE #0 THEN ;WHEN RUNNING TESi1-SUB 12, 
017412 105737 003542 TSTB TISWB 
017416 001401 BEQ 50352$ 


i 
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4299 017420 000313 
4300 017422 

017422 
4301 gt rass 


4302 017422 

020237 017662 
0 001011 

4303 017430 
0 105737 

001406 


032737 
00100 


2 
105723 
105724 


003536 


000001 017662 


017452 
4308 017452 
017452 
4509 017452 
017452 
4310 017452 121314 
017664 


003300 
4315 017470 003310 


4316 017474 


017664 
003444 
003444 
003446 


000013 


177400 
023727 017664 
002017 


005046 
153716 
005046 
153716 
010246 
012746 
012746 
010600 
017574 104415 
062706 


003446 
003444 
004773 
000004 
000012 


105723 


4326 017604 105724 
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SWAB (R3) 
ENDIF 
REPEAT 
IF R2 EQ CKDCNT THEN 


IFB SWBFLG NE #0 THEN 


IF #BITOO NOTSETIN CKDCNT THEN 


an 


;SWAP FIRST WORD OF WRT BFR 
;WHICH CONTAINS THE RECORD COUNT 


;REPEAT UNTIL ALL DATA IS COMPARED: 
;IF THIS IS THE LAST BYTE THEN: 
CMP R2, CKDCNT 


BNE 0354$ 
;IF BYTE SWAPPING IS ENABLED TreN: 
TSTB SWBFLG 


BNE 
TSTB (R3)- ++ ¥ BYTE WILL BE IN 
TSTB (R4)+ ;THE UPPER BYTE. 
ENDIF 
50356$: 
ENDIF 
50355$: 
ENDIF 
50354$: 
CMPB (R3),(R4) ;ARE THEY EQUAL . 
BEQ 3$ so. 
TST CKDFF 31 ST TIME THRU? 
BNE 23 ;BR IF NOT. 
INC VF YCNTCRS) INC THE VERIFY ERROR COUNTER. 
INC HRDCNTC(RS) ;INC THE HARD ERROR COUNT. 
ERRHRD 17,WTVERM,DTAERM  ;REPORT WRITE/VERIFY ERROR. 
TRAP C$ERHRD 
-WORD 17 
-WORD WTVERM 
-WORD OTAERM 
2s: LET CKDFF := CKDFF + #1 INCREMENT # OF i oe 
MOVB (R4),TIME1 ;SAVE WAS DATA FOR TYPOUT. 
I #177400, TIME1 ;CLEAR GARBAGE. 
MOVB (R3),TIME2 sSAVE SHOULD BE DATA FOR TYPOUT. 
I #177400, TIME2 3CL GARBAGE . 
IF CKDFF LT #11. THEN ;IF ERROR BYTE COUNT IS LESS THAN 11: 
CMP CKDFF ,#11 
BGE 50357$ 
PRINTX #DTAER2,R2,<B,TIME1>,<B,TIME2> ;PRINT = : ACT wart 
L - 
BISB TIME2, (SP) 
CLR -(SP) 
BISB TIME1, (SP) 
MOV R e~ S 
MOV #DTAER2, -( SP) 
MOV SP,RO 
TRAP CS$PNTX 
ADD #12,SP 
ENDIF 
50357$: 
3$: TSTB (R3)+ s;UPDATE WRITE BUFFER ADDRESS. 
TSTB (R4)+ ;UPDATE READ BUFFER ADDRESS. 


BEQ 50355$ 
;IF RECORD LENGTH IS ODD THEN: 
BIT #BIT00,CKDCNT 


ene a ee 
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4327 017606 105722 TSTB (R2)+ UPDATE BYTE COUNTER. 

4328 017610 UNTIL R2 GT CKDCNT ;END OF ba TA COMPARE reg LOOP. 
017610 020237 017662 CMP R2,CKDCNT 
017614 003702 BLE 50353$ 

4329 017616 LET CKDCNT := CKDCNT + #1 ;CKDCNT EQUALS RECORD LENGTH. 
017616 005237 017662 KDCNT 

4330 017622 IF CKDFF NE #0 THEN ;IF COMPARE ERROR HAS OCCURED THEN: 
017622 095737 017664 TST CKOFF 
017626 001414 BEQ 50360$ 

4331 017630 PRINTB #DTAER3,CKDFF ,CKDCNT sPRINT # OF E’TES IN ERROR. 
017630 013746 017662 ‘OV CKDCNT , -( SP) 
017634 013746 017664 nov CKOFF , -( SP) 
017640 012746 005042 MOV SDTAER3, -(SP) 
017644 012746 000003 MOV #3,-(SP) 
017650 010600 MOV SP; RO 
017652 104414 TRAP C$PNTB 
017654 062706 000010 ADD #10,SP 

4332 017660 ENDIF 
017660 50360$: 

4333 017660 ENDIF 
017660 50351$: 

4334 017660 ENDIF 
017660 50347$: 

ante 017660 000207 RTS PC sOTHERWISE, RETURN. 

4337 017662 000000 CKDCNT: .WORD 0 ;# OF BYTES TO BE VERIFIED -1. 


4338 017664 000000 CKDFF: .WORD 0 ;# OF BYTES IN ERROR COUNTER. 


— a . aa 
. 
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4355 017732 


4373 017766 


me ee ee oe 
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105037 
005005 
026527 
001003 
062705 
000771 
026527 
001001 
104444 


016537 
000207 


105037 
042705 


062705 


026527 
001772 


016537 
000207 


003541 


002536 


000002 


002536 


002536 


003541 
177770 


000002 
002536 


002536 


177774 


177777 


002074 


177774 


002074 


FIRSTU: 


NEXTU: : 


:LET DROPED :B= #0 


> TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 
OUTPUTS: 
REGISTERS: 
CALLS: 
;CLR UNIT DROPPED FLAG 

L DROPED 
LET RS := #0 sCLR DEVICE oe 


L RS 
WHILE DEVTBLC(RS) EQ@ #NINUSE DO ;WHILE DEVICES gy 4 IN USE: 


anaes ok, o 


SEQ 0122 


DEVTBLCRS), #NINUSE 
BNE 50362$ 
LET RS := RS + #2 sPOINT TO NEXT DEVICE. 
ADD #2,R5 
ENDDO 
503628: 50361$ 
IF DEVTBL(RS) EQ #END THEN ;IF ALL UNITS HAVE BEEN DROPPED THEN: 
CMP DEVTBL(RS), #END 
BNE 50 
DOCLN ;D0 CLEAN CODE AND TERMINATE PASS. 
TRAP C$DCLN 
ENDIF 
50363$: 
LET L$LUN := DEVTBLCRS) sSET UNIT # IN “HEADER” FOR ERROR REPORT 
MOV A mae L$LUN 
RTS PC sRETURN WITH 1ST DEVICE INR 


—- TO FIND THE NEXT UNIT IN THE TEST CYCLE. 
OUTPUTS: 

REGISTERS: 

CALLS: 

LET DROPED :B= #0 
BIC #177770,R5 
REPEAT 


;CLR UNIT DROPPED FLAG 
CLRB DROPED 


LET RS := RS + #2 
UNTIL DEVTBLC(RS) NE #NINUSE 


6 . 
sUPDATE DEVICE TABLE POINTER. 
ADD #2,R5 


LET L$LUN := DEVTBLCRS) 
RTS PC sRETURN. 


BEQ 503 
sSET UNIT # IN — FOR ERROR R 


DEVTBLC(RS), LeLUN 


sREPEAT UNTIL THE NEXT DEVICE IS FOUND. 


CMP Saseasn » @NINUSE 
| 





a @ ED 
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4378 : SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 

4379 : INPUTS: 

43 3 OUTPUTS: 

4381 ; REGISTERS: 

aaet ; CALLS: MOVMSG, PRXST, LOG 

4384 017770 DROPU:: LET RSSAVE := RS 
017770 010537 003460 MOV RS, RSSAVE 

4385 017774 LET FTLCNT(RS) := FTLCNTCRS) + #1 ;INCREMENT THE FATAL ERROR COUNT 
017774 005265 003320 FTLCNTCRS) 

4386 020000 LET R4 := MSGPKT+MS.XS3 CLR.BY #377 ;GET UDIAG ERROR CODE FROM XSTAT3. 
020000 013704 002354 MOV a a XS3,R4 
020004 042704 000377 BIC #377,R 

4387 020010 LET R3 := MSGPKACRS) ;ADR OF THIS UNIT'S MSG PACK eT 
020010 016503 002506 MOV MSGPKACRS),R3 

4388 020014 LET R2 := #0 ;CLR COUNTER. 

020014 005002 CLR R2 

4389 020016 WHILE R2 NE #MSGCNT DO ;WHILE THERE ARE MORE LOCATIONS: 
020016 50365$: 

020016 020227 000016 CMP R2, #MSGCNT 
020022 001405 BEQ 50366$ 

4390 020024 LET (R3)+ := #-1 ;INIT THE MSG PACKET WITH ALL 1'S 
020024 012723 177777 MOV #-1,(R3)+ 

4391 020030 LET R2 := R2 + #2 ;UPDATE COUNTER. 

020030 062702 000002 ADD #2,R2 

4392 020034 ENDDO 
020034 000770 BR 50365$ 
020036 50366$: 

4393 020036 LET @TSDBC(RS) := #GSCPK sINITIATE A GET STATUS COMMAND. 

020036 012775 002324 002456 MOV #GSCPK , @TSDBCRS ) 

4394 020044 004737 012124 JSR PC, ne ;WAIT A WHILE FOR SSR= 

4395 020050: 004737 012224 JSR PC,MOVMSG ;MOVE MSG PACKET TO COMMON AREA. 

4396 020054 IF R4 EQ #X3.RNY THEN ;IF WE HAVE A CAPSTAN RUNAWAY THEN: 
020054 020427 157400 CMP 4,#X3.RNY 
020060 001005 BNE 50367$ 

4397 020062 ERRDF 16,RNYM,STAERM ;REPORT CAPSTAN RUNAWAY WITH TACH CNT. 
020062 104455 TRAP CSERDF 
020064 000020 . WORD 
02 600 -WORD RNYM 
020070 005640 -WORD STAERM 

4398 020072 ELSE ;ELSE-IF NOT A RUNNAWAY: 

020072 000402 BR 50370$ 
020074 50367$: 

4399 020074 004737 020212 JSR PC,PRXST s;PRINT EXTENDED STATUS REGISTERS. 

020100 ENDIF 
20100 50370$: 

4401 020100 IFB RECLOG NE #0 THEN ;IF THE RECORD HAS BEEN LOGGED THEN: 
020100 105737 003501 TSTB RECLOG 
020104 001404 BEQ 50371$ 

4402 020106 LET DROPED :B= DROPED + #1 ;SET UNIT DROPPED FLAG. 

020106 105237 003541 N DROPED 

4403 020112 004737 016024 JSR PC,LOG ;LOG DATA BYTES + RD/WR ERRORS. 

4404 020116 ENDIF } 
020116 50371$: 

4405 020116 DORPT ;PRINT PERFORMANCE REPCRT 
020116 104424 TRAP CSDRPT 


DROPUA: IF PASCNTCRS) NE #0 THEN 
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020120 005765 003260 TST PASCNT(RS) 
020124 001402 BEQ 50372$ 
4407 020126 LET PASCNT(RS) := PASCNTC(RS) - #1 
020126 005365 003260 DEC PASCNT(RS) 
4408 020132 ENDIF 
020132 503723: 
4409 020132 LET DROPN := DEVTBLC(RS) ;SAVE # OF UNIT TO GE DROPPED. 
020132 016537 002536 020210 MOV DEVTBL(RS),DROPN 
4410 020140 LET RO := RS SHIFT -1 ;RO=LOGICAL DEVICE NUMBER 
020140 010500 MOV R5,RO 
020142 006200 ASR RO 
4411 020144 DODU RO ;DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU = 0 
020144 104451 TRAP C$D0DU 
4412 020146 IF DEVTBL(RS) NE #NINUSE THEN ;IF UNIT NOT DROPPED 
020146 026527 002536 177774 CMP DEVTBL(RS), #NINUSE 
020154 001410 BEQ 50373$ 
4413 020156 IFB IREC EQ #0 THEN ;IF RECOVERY IS ENABLED THEN: 
020156 105737 002210 TSTB TREC 
020162 001005 BNE 50374$ 
4414 020164 000240 NOP 
4415 020166 000240 NOP 
4416 020170 000240 NOP 
4417 020172 LET STAFLG :B= STAFLG + #1 ;SET START FLAG TO ENABLE REWIND, 
020172 105237 003546 INCB STAFLG 
4418 020176 ENDIF 
020176 503743: 
4419 020176 ~~ ENDIF 
020176 503733: 
4420 020176 DRORTN: LET DROPED :B= DROPED + #1 ;SET UNIT DROPPED FLAG. 
020176 105237 003541 INCB DROPED 
4421 020202 LET RS := RSSAVE 
020202 013705 003460 MOV RSSAVE,RS 


sant 020206 00020 RTS PC sRETURN. 
4424 020210 000000 DROPN: .WORD 0 ;# OF UNIT TO BE DROPPED 
| 


' 


ee ee 
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4432 020212 


4433 020232 


02 
020266 
34 020272 


4 
4445 020274 
020274 
020300 
4446 020302 
02 
4447 Sots 
4448 asonis 


4449 otoata 


4450 020320 
4451 020324 


0. 
4452 osoren 
4453 oconee 
4454 aeotes 


020346 


el ee ee 
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105737 
001430 


105737 
001023 


104450 
103023 


013704 
004737 


112337 
112337 
111337 


104443 
000404 


003444 
000130 


002206 


003551 


003426 
007746 


004136 
004137 
004140 


PRXST:: 


CKHAE: : 


SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
INPUTS: 


OUTPUTS: 
REGISTERS: 
CALLS: 


PRINTX #GETSTM 


ADD #4,SP 
PRINTX spc ttetoca ences teense cementite meta > 


RTS PC 


SUBROUTINE TO HALT AFTER EACH COMMAND. 
INPUTS: 


OUTPUTS: 
REGISTERS: R3, R4 
CALLS: 


IFB HAE NE #0 THEN 
IFB MISCFG EQ #0 THEN 


MANUAL 
BNCOMPLETE CKHRTN 
LET R4 := CMDWRD 


JSR PC,GCMDA 
LET HALTM :B= (R3)+ 


LET HALTM+1 :B= (R3)+ 
LET HALTM+2 :B= (R3) 
GMANIL HALTM, TIME1,1, YES 


;IF HALT FLAG IS SET: 
TSTB 


BNE 
IS MANUAL INTERVENTION 


;BR IF NOT. 
;COMMAND WORD. 


sFETCH ADR OF CMD ASCII. 
s;MOVE CMD ASCII 


MOVB 
;INTO —- 


BEQ 
TSTB 


MOVB 


MOV #GETSTM 
MOV #1,-(SP 
MOV oR 
TRAP C$PNTX 


SP, 
C$PNTX 
ADD #14, SP 


HAE 
50375$ 


MISCFG 

50376$ 
ALLOWED? 

TRAP C$MANI 
BCC CKHRTN 


CMDWRD ,R4 


(R3)+,HALTM 
(R3)+,HALTM+1 
(R3),HALTM+2 


OVB 
sHALT - WAIT FOR AN OEPRATOR INPUT 


TRAP  C$GMAN 
0000$ 


BR 1 
-WORD TIME1 
-WORD TSCODE 


-(SP) 
) 


MSGPKT «MS. XSO, - 
-* -(SP) 
MOV #5,-(SP) 
P,RO 


-——— — Oe 
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ed 


020350 004136 -WORD HALTM 
020352 000001 -WORD 1 
020354 10000$: 
4455 020354 ELSE 
020354 000402 BR 50377$ 
020356 50376$: 
4456 020356 LET MISCFG :B= #0 ; 
020356 105037 003551 CLRB MISCFG 
4457 020362 ENDIF 
020362 50377$: 
4458 020362 ENDIF 
50375$: 


020362 
4459 020362 000207 CKHRTN: RTS PC sRETURN 


———— _*- — ee ee 








K10 


| GLOBAL AREAS MACRO M1200 28-MAR-85 15:28 PAGE 93 
ren - READ AND DISPLAY SELECTED RAM 


4461 ; SUBROUTINE TO CREATE THE SEQUENCE J A WRITE TAPE MARK 
soak ; jane WILL EXECUTE COMMAND TO UU 
; 

4464 ; OUTPUTS: CMDSEQ 
aeat ; CALLS: SETUP, CMDAC, EXCUTE, GOWAIT 
4467 020364 WRITEM: : 
4468 020364 LET R1 := #CMDSEQ 

020364 012701 003554 MOV 
4469 020370 LET (Ri)+ := @WTM ; COMMAND 

020379 012721 100011 MOV 
4470 020374 LET (Ri)+ := #1 ;BRF 

020374 012721 000001 MOV 
4471 020400 LET (R1)+ := #1 ; ITERATIONS 

020400 012721 000001 MOV 
4472 020404 005721 TST (R1)+ ;PATTERN 
4473 020406 LET (R1i)+ := #END ; TERMINATOR 

020406 012721 177777 MOV 
4474 020412 LET R1 := #CMDSEQ ;TOP OF BUFFER 

020412 012701 003554 MOV 
4475 020416 004737 010000 JSR PC, SETUP sSET UP THE TABLE 
4476 020422 004737 007672 JSR PC, AC sLOAD THE ASCII 
4477 020426 004737 010774 JSR PC, EXCUTE ae. bay WTM COMMAND 
4478 020432 004737 011470 JSR PC, GOWAIT sWAIT FOR THE COMMAND TO FINISH 
sens 020436 000207 RTS PC ;RETURN TO CALLER 
4481 .EVEN 
4482 
4483 020440 ENDMOD 


#CMDSEQ,R1 
OWTM, (R1)+ 
#1,(R1)+ 
#1,(R1)+ 


#END,(CR1)+ 
#CMDSEQ,R1 


ee 


—— ee ee 


SEQ 0127 


all 


— ——— A —— 


a ee eee - —_— 
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'RAMER - READ AND DISPLAY SELECTED RAM SEQ 0128 
4495 
4496 - TITLE MISCELLANEOUS SECTIONS 
po df -SBTTL REPORT CODING SECTION 
4507 020440 BGNMOD 
450 
4509 
4510 : “THE REPORT CODING SECTION CONTAINS THE 
seit ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
ge 
4513 
4514 020440 BGNRPT 
4515 020440 LS$RPT:: 
4521 020440 LET RSSAVE := RS ;SAVE CURRENT DEVICE POINTER. 
020440 010537 003460 MOV RS, RSSAVE 
4522 020444 004737 017666 JSR PC,FIR ;FIND THE FIRST UNIT 
4523 aroeas WHILE DeVTaL RS) ONE #END DO SWHILE THERE ARE MORE DEVICES: 
020450 026527 002536 177777 CMP DEVTBL(RS), #END 
020456 001562 BEQ 50401$ 
4524 020460 PRINTS #RPT1A,DEVTBLCRS),PASCNTC(RS),RECCNTC(RS) 
020460 016546 003330 MOV RECCNTC(RS),-(SP) 
20464 016546 003260 MOV PASCNT(RS),-(SP) 
020470 016546 002536 MOV DEVTBLC(RS),-CSP) 
020474 012746 021302 MOV ORPTIA, -(SP) 
020500 012746 MOV 04,-( 
020504 0106 MOV SP ,RO 
0506 104416 TRAP CS$PNTS 
020510 062706 000012 ADD #12,SP 
4525 020514 PRINTS #RPT1B ,WRBC+30(R5),WRBC+20(R5),WRBC+10(R5),WRBCCRS) 
020514 016546 002560 MOV WRBC(RS),-(SP) 
020520 016546 002570 MOV WRBC+10(R5S),-C(SP) 
020524 016546 002600 MOV WRBC+20(R5S),-(SP) 
020530 016546 2610 MOV WRBC+30(RS),-(SP) 
20534 012746 021357 MOV @RPT1B,-(SP) 
020540 012746 MOV #5,-(S5°) 
020544 0106 MOV SP ,RO 
20546 104416 TRAP C$PNTS 
020550 062706 000014 ADD 014,SP 
4526 020554 PRINTS #RPTIC ,RRBC+30(R5S), RRBC+20(RS), RRBC+10(R5), RRBCCRS) 
020554 6546 002620 MOV RRBC(RS),.-(SP) 
020560 016546 002630 MOV RRBC+10(RS),-C SP) 
20564 016546 002640 MOV RRBC+20(RS), -( SP) 
020570 016546 002650 MOV RRBC+30( RS), -(SP) 
020574 012746 021430 MOV ORT ,-(5P) 
20600 012746 0005 MOV #5,-(SP) 
020604 010600 MOV SP, 
020606 104416 TRAP CSBNTS 
020610 062706 000014 ADD 4,SP 
4527 020614 PRINTS #RPT1D,RFBC+30(RS),RFBC+20(R5), RFBC+ seth), “RFBCCRS) 
020614 016546 002660 RFBCC(RS),.-(SP) 
020620 016546 002670 HOV RFBC+-10(R5S), -( SP) 
020624 016546 002700 MOV RFBC-20(RS)., -( SP) 
020630 016546 002710 MOV RFBC-30(RS),-(SP) 
020634 012746 021501 MOV @RPTID, -( SP) 
020640 012746 MOV 5, -(SP) 
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REPORT CODING SECTION SEQ 0129 
020644 010600 MOV R 
104416 TRAP CSPNTS 
020650 706 000014 ADD 4,SP 
4528 020654 PRINTS ORPTIF ,WRREC(RS),RRREC(RS),.RFREC(RS) 
020654 016546 002760 MOV RFREC(RS), -(SP) 
016546 002740 MOV RRREC(RS). -(SP) 
016546 002720 MOV WRREC(RS), -(SP) 
020670 012746 021605 MOV IF, -(SP) 
020674 012746 MOV 04,-(SP) 
020700 01 MOV 
020702 104416 TRAP  CSPNTS 
020704 062706 000012 ADD #12, 
4529 020710 PRINTS @RPT1G, WRUNR(RS),RRUNR(RS),RFUNR(RS) 
020710 016546 002770 MOV RFUNR(RS),-(SP) 
020714 016546 (02750 MOV RRUNR(RS), -( SP) 
02072¢ 016546 (02730 MOV WRUNR(RS), -(SP) 
020724 012746 021656 MOV ORPTIG, -(SP) 
020730 012746 MOV 04, - 
020734 MOV RO 
736 104416 TRAP CS$PNTS 
020740 062706 000012 ADD 12,SP 
4530 020744 IFB BADTSW NE #0 THEN : 
020744 105737 002211 TSTB = BADTSW 
020750 001402 BEQ 50402$ 
4531 020752 004737 021034 JSR PC,BTRPT ;GO PRINT BAD TAPE SPOTS WHEN ENABLED 
4532 020756 ENDIF 
020756 50402$: 
4533 020756 PRINTS @RPT1I,SCCNT(RS),HROCNT(RS),FTLCNT(RS), VEYENTCRS) 
020756 016546 003300 MOV VFYCNT(RS), -(SP) 
020762 546 003320 MOV FILENT(RS), - (SP) 
766 016546 003310 MOV HROCNT(RS), -(SP) 
020772 546 003270 MOV SCCNT(RS), - (SP) 
020776 012746 022046 MOV 1I,-(SP) 
021002 012746 5 a os, tsb) | 
021010 104416 TRAP = CS$PNTS 
021012 062706 000014 ADD 014,SP 
4534 021016 004737 017734 JSR PC, NEXTU ;FIND THE NEXT UNIT. 
4535 021022 ENDDO 
021022 000612 BR 504003 
021024 504015: 
4536 021024 LET RS := RSSAVE ;RESTORE CURRENT DEVICE POINTER. 
021024 013705 003460 MOV RSSAVE RS 
4537 021030 EXIT RPT 
021030 000167 .WORD J$uMP 
ath 021032 001206 “WORD 110011-2-. 
4539 : SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS | 
4540 ; WRITE RETRIES: CUMULATIVE COUNT | 
4541 ; BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE. 
434¢ : COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS. 
4544 02103 BTRPT: PRINTS @RPTIE,WRTYCT(RS) ;PRINT GLOBAL WRITE RETRY COUNT 
021034 016546 003250 MOV WRTYCT(RS), -(SP) 
021040 012746 021727 MOV ORPTIE, -( SP) 
021044 012746 000002 MOV 22, (Sb ) 
021050 010600 MOV SP RO 


MISCELLANEOUS SECTIONS 
REPORT CODING SECTION 


104416 
062706 


016537 
017703 
006203 


066 

021072 

4547 021074 
021074 


020327 
0211 101402 
012703 


021204 
4557 osisis 
4558 021212 
21212 
4559 021216 
021216 


021222 
4560 021224 
021224 


021240 


020227 
001014 


012746 
012746 
010600 
104416 
062706 
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022037 
000002 
000006 
000002 


000012 


005312 
000001 


000004 


SEQ 0130 


Tap CSPNTS 
LET BTPT := BTADOR(RS) ;BTPT IS BOTH THE BAD TAPE SPOT COUNTER 
003526 BTADDOR( RS), BTPT 
LET R3 :* @BTPT SHIFT -1 ;AND THE LOGGING INDEX 
HOV SB TPT.RS 
PRINTS #RPT1U,R3 ;PRINT @ OF BAD TAPE SPOTS 
MOV R3,-(SP) 
MOV @RPTIU, -(SP) 
MOV #2, -(SP) 
MOV e 
TRAP CSPNTS 
ADO 06, SP 
IF R3 NE 00 THEN ;PRINT RECORD @ IF BAD SPOTS DETECTED 
BEQ 50403$ 
IF R3 HI 20. THEN : 
CMP RZ e 620. 
BLOS 504043 
LET R3 := 020. :20 BAD SPOTS IS THE LIMIT 
MOV 020. .R3 
ENDIF 
504043: 
PRINTS @CRLFSP , 


V SP.RO 
TRAP CSPNTS 
ADD 


MOV + grt 5 at 


LET R4 := BIPT + #2 ;FETCH A BAD SPOT ID 


BTPT,R4 
ADD #2, 
LET R2 := #0 ;R2 = PRINT COUNT PER LINE: 10 MAX 
CLR R2 
REPEAT , 
50405$ 
PRINTS ORPTIK,(R4) ;PRINT A BAD SPOT ID 
(R4),-(SP) 
MOV ORPTIK, -(SP) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP © C$PNTS 
ADD 06,SP 
LET R2 := R2 + #1  ;COUNT PRINTS va 
LET R4 := R4 + 02 ;NEXT 
ADD 02,R4 
IF R2 EQ #10. THEN ; 
CMP R2,010. 


PRINTS #CRLFSP 


BNE 50406$ 
sGO TO NEXT PRINT LINE go 10 PRINTS 


OCRLF SP, -(SP) 
MOV 01,-(SP) 


MOV SP,RO 
TRAP CSPNTS 
ADD 04,SP 


ee me 


——-—- = 


Bil 
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| REPORT CODING SECTION SEQ 0131 
4561 021244 LET R3 := RB - 010. sADJUST BAD SPOT COUNT 
162703 000012 SUB #10. ,R3 
021250 162702 000012 SUB #10. ,R2 
4563 021254 ENDIF ; 
021254 50406$: 
4564 021254 UNTIL R2 EQ R3 sLIMIT: @ OF BAD SPOTS 
021254 020203 CMP R2,R3 
021256 001343 BNE 50405$ 
4565 021260 ENDIF ; 
021260 50403$: 
4566 021260 PRINTS #@CRLF ; 
021260 012746 005307 MOV @CRLF , -(SP) 
012746 000001 MOV #1,-(5P) 
021270 010600 MOV SP ,RO 
021272 104416 TRAP CSPNTS 
021274 062706 000004 ADD #4 ,SP 
7 021300 000207 RTS PC 
4568 
4580 -NLIST BEX 


4581 021302 045 116 045 RPTIA: .ASCIZ /SNSNSAUNIT #D1SS3SAPASS : SDSSS3SARECORD : SDSSN/ 
4582 021357 045 101 102 RPT1B: .ASCIZ /S#ABYTES WRITTEN #D38A,8Z38A,8Z38A,8Z30N/ 
4583 021430 045 101 102 RPTIC: .ASCIZ /#ABYTES READ REV SD38A,8Z38A,8Z38A,8Z38N/ 
4584 021501 045 101 102 RPT1D: .ASCII /#ABYTES READ FWD #D38A,8Z38A,8Z38A,8Z30N/ 
4585 021551 045 123 062 ASCIZ /#S23SAWRTSS4SARDRSS4SARDFSN/ 

4586 021605 045 101 122 RPTIF: .ASCIZ /#ARECOVERABLE ERRORS s#D5#S2sD5sS2sD5sN/ 
4587 021656 045 101 125 RPT1G: .ASCIZ /#AUNRECOVERABLE ERRORS #D5sS2sD5s8S28058N/ 
4588 021727 045 101 127 RPTIE: .ASCIZ /#AWRITE RETRIESSS8S058N/ 

4589 021757 045 116 045 RPT1J: .ASCIZ /s#NSD3SA BAD SPOTS THIS PASS PRECEDING RECORD #:/ 
4590 022037 045 104 065 RPTIK: .ASCIZ /s#D58S1/ 

4591 022046 045 101 123. RPT1I: .ASCII “sASPEC CONDSS3SAHARDSS3SAFATAL SS3SACOMPARESN” 


4592 022122 045 123 063 -ASCIZ /#S38D058S38058S38058S38D5ssNSN/ 
4593 022157 045 116 045 TAPCAP: .ASCIZ /sNSATAPE IN CARTRIDGE MUST BE 600’ IN LENGTH. SNsN/ 
4594 -LIST BEX 
4595 -EVEN 
4596 022242 ENDRPT 
022242 L10011: 
e507 022242 104425 TRAP C$RPT 
4598 s;LOAD DEVICE PROTECTION TABLE 
4599 ;TABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV 
ror ;THE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV 
4602 022244 BGNPROT 
022244 L$PROT:: 
4603 022244 000000 -WORD 0 ;P-TBL OFFSET OF TSSR, THE TK25 CSR 
4604 022246 177777 -WORD -1 ;P-TBL OFFSET OF MASS BUS UNIT #: -1 = NOT A MASS BUS DEV 
4605 022250 177777 -WORD -1 ;P-TBL OFFSET OF DRIVE #: -1 = NONE, ONE DRIVE PER UNIBUS AD 


| 0212 
| 4562 021250 LET R2 := R2 - #10. sADJUST PRINT COUNT 
4606 022252 ENDPROT 


_— 


—- --~-ee 


C 
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0 
4629 022322 
4630 ossess 


4631 

4632 022324 
4633 022332 
4634 0, 


0. 
4635 ston 


0. 
4636 esteee 
4637 pestis 
4638 022356 


0. 
4639 022360 
02 
4640 
4641 022360 
0 
4642 022366 
022366 
4643 022374 


032727 
001421 


104454 
000001 
004176 
000000 
012727 
000000 
013727 
000000 


020227 
001405 


005062 
062702 
000770 


105737 
001406 


012737 


000003 


000024 
002116 
177772 
177756 


002204 
002204 


000550 


002560 
000002 


002205 


153624 


002314 


003440 


-SBTTL INITIALIZE SECTION 


11 


ee 


; “THE INITIALIZE SECTION a HS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 


BGNINIT 
L$INIT:: 


INIT10: IF @#BITO!BIT1 SETIN #CMDPKT THEN 


ERRSF 1,CMDPKM 


DELAY 20. 
BR INIT10 
ENDIF 


IFB CLRFLG NE #0 THEN 


CLRB CLRFLG 
LET R2 := #0 


WHILE R2 NE #CNTLEN DO 


LET WRBC(R2) := #0 
:= R2 + #2 


LET Re : 
ENDDO 


ENDIF 


IFB RRANV NE #0 THEN 


LET RANB : 
LET RANS : 


:= #RANBC 
:= #RANSC 


:IF CMD ae NOT UN MODULO 4 


BEQ 
sPRINT ERROR MSG, 
TRAP CSERSF 
WORD 1 


-WORD CMDPKM 
-WORD 0 
;GO TO SUPERVISOR, WAIT 2 SECONDS. 
MOV #20. ,(PC)-+ 
. WORD 
MOV L$DLY,(PC)- 
-WORD 0O 
DEC -6(PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 
50407$: 
IF CLR COUNTERS FLAG SET: 
TSTB CLRFLG 


BEQ 50410$ 
sINIT CLR FLAG. 


CLR R2 
50411$: 
CMP R2,@CNTLEN 
BEQ 50412$ 
sCLR ALL intel COUNTERS. 
CLR WRBC(R2) 
ADD #2,R2 


BR 50411$ 
50412$: 


50410$: 
;IF RESET RANDOM VARIABLE FLAG IS SET THEN: 
TSTB RRANV 


BEQ 50413$ 
sRESET RANDOM BASE @ 
V #RANBC ,RANB 


;RESET RANDOM SAVE LOCATION. 


BOUNDRY : 
#BITO!BIT1, @CMDPKT 
50407$ 


eS ee 


en ee 
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022374 
2 


544 
4650 022450 
4651 022454 


022562 


012737 


103036 


012537 
012537 
013746 


103030 
105237 
105037 
012705 


012765 
162705 


005705 
001371 


013705 
006305 


Dil 
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032561 003442 


000114 


177774 002536 


000002 


002012 


1$: 
2s: 


ENDIF 
CLOCK L,RS 

BNCOMPLETE 1$ 

LET LCSR := (R5)+ 

LET LBRVEC := (R5)+ 

LET LBRVEC := LBRVEC SHIFT 5 


LET LVECT := (R5S)+ 
LET LHERTZ := (R5S)+ 
SETVEC LVECT, #CLKSVC,LBRVEC 


BR 2$ 
LET LCSR := #0 


READEF #EF.START 


BNCOMPLETE INIT15 
LET STAFLG :B= STAFLG + #1 
LET HERE :B= #0 


LET RS := #6 

REPEAT 
LET DEVTBLC(RS) := #NINUSE 
LET RS := RS - #2 


UNTIL RS EQ #0 


LET RS := L$UNIT SHIFT 1 


MOV 


50413$ 
sLINE CLOCK PRESENT? 


;SKIP NEXT IF NOT 


MOV 
;SET UP FOR LINE CLOCK — 


CLR 


READ START COMMAND —— 


sBRANCH IF NOT STARTING. 
;SET START COMMAND FLAG 


BCC 1$ 
CRS)+,LCSR 
CRS)+, LBRVEC 
LBRVEC 


LBRVEC 

CRS)+,LVECT 

(RS)+, LHERTZ 

LBRVEC, -(SP) 


MOV @CLKSVC, -(SP) 
MOV LVECT, -(SP) 
3,-(SP) 


V #3,- 
TRAP C$SVEC 
ADD #10,SP 
LCSR 


#EF .START,RO 
TRAP CSREFG 


INIT1S 


NCB AFLG 
sRESET THE TEST 3 ASCII SEMAPHORE 
CLRB HERE 


MOV #6,R5 
INITIATE UNIT NUMBER TABLE 
3BY STORING NOT pM USE IN EACH LOCATION. 


#NINUSE , DEVTBL (RS) 
#2,R5 


RS 

50414$ 
LS$UNIT,RS 
RS 


ee ee ee ee 





Eil 
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022620 
4676 022624 


022700 
4690 022702 


162705 
010565 
006265 
005705 
001370 
012700 
104447 
103004 
105237 
105237 
104421 
010037 
005003 


105737 
001020 


012700 
104447 


103014 


105737 
001010 


012700 
104447 


103402 
005103 
000401 


005203 


000401 


005203 


000002 


002536 
002536 


000034 


003546 
003547 


003552 


003547 


000035 


003546 


000037 


REPEAT 
LET RS := RS - #2 
LET DEVTBL(RS) := RS SHIFT -1 


UNTIL RS EQ #0 


INIT15: READEF #€F .PWR 


BNCOMPLETE INIT16 
LET STAFLG :B= STAFLG + #1 
LET PWRFLG :B= PWRFLG + #1 


INIT16: RFLAGS OPFLAG 


LET R3 := #0 
IFB PWRFLG EQ #0 THEN 


READEF #EF .NEW 


IFCOND CS THEN 
IFB STAFLG EQ #0 THEN 


READEF #EF .RES 


IFCOND CC THEN 
LET R3 := COMP R3 
ELSE 


LET R3 := RB + #1 
ENDIF 
ELSE 


LET R3 := R3 + #1 
ENDIF 


sSTORE ALL UNIT 

50415$: 
sNUMBERS IN DEVTBL. 

SUB #2,R5 


MOV RS ,DEVTBL(RS) 
ASR DEVTBL(RS) 


TST RS 
BNE 50415$ 


sHAS THERE BE A POWER FAILURE? 
MOV #EF .PWR,RO 
TRAP CSREFG 


;BRANCH IF NOT. 
INIT16 


BCC 
sIF SO - SET THE START FLAG. 
NC STAFL 
:IF SO - SET THE POWER FAIL FLAG. 
INCB PWRFLG 


sREAD AND STORE FLAGS =) BY OPERATOR 
TRAP C$RFLA 
MOV RO, OPFLAG 
CLEAR EVENT FLAG 


CLR R3 
;IF POWER FAIL HAS NOT OCCURRED THEN: 
TSTB PWRFLG 


BNE 50416$ 
sUPDATE PASS COUNT WHEN 
MOV #EF .NEW,RO 
TRAP C$REFG 
SUPERVISOR IS IN NEW PASS 


BCC 50417$ 
;AND DIAG WAS NEITHER STARTED 
TSTB STAFLG 
BNE 50420$ 
;NOR 
MOV #EF .RES,RO 
TRAP CS$REFG 
;RESTARTED 
BCS 50421$ 
3:00 IT 
COM R3 
50422$ 
50421$: 
;SET 1ST PASS IF NEW PASS AND 
NC R3 
;RESTARTING 
50422$: 
BR 50423$ 
50420$: 
;SET 1ST PASS IF NEW PASS AND 
INC R3 
;STARTING 


DT 
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0. 
4697 


4698 


0. 
4700 

0. 
4701 


0 
4702 


4703 


4704 


4706 


0. 
4707 


4708 

0 
4709 

0 
4710 

0 
4711 

0. 


4712 
4713 


02 
4705 
0. 


0. 
023032 


004737 
005002 
026527 
001450 
005202 


010500 
006200 


104442 
103036 
011065 


012065 
162765 


011065 
012746 
916546 


012765 


005065 
004737 


017666 


002536 


003260 


000001 


003330 
017734 


ee 


-(SP) 


ee et re 


SEQ 0135 |! 


50423$: 
ENDIF ;D0 NOT UPDATE IT ON CONTINUE 
ENDIF ;0R ON PUWER FAIL 
JSR PC, ,FIRSTU sINIT DEVICE POINTER. 
LET R2 := #0 ;INIT DEVICE — Ro 
WHILE DEVTBLC(RS) NE #END DO 
50424$: 
177777 CMP DEVTBLCRS), #END 
BEQ 50425$ 
LET R2 := R2 + #1 
INC R2 
LET RO := RS SHIFT -1 
pre Re »RO 
GPHARD RO,RO ;GET HARDWARE P TABLE —— te 
C$GPHRD 
IFCOND CS THEN 
BCC 50426$ 
LET TSSRCRS) := (RO) ;SAVE TSSR ADDRESS. 
Vv (RO), TSSRCRS) 
LET TSDBC(RS) := (RO)+ - #2 ;SAVE TSOB ADDRESS. 
MOV (RO)+, Lt 7 sul 
002456 SUB rs FUL CRS) 
LET TSVCTCRS) := (RO) s;SAVE INTERRUPT VECTOR ADDR 
V CRO). FaveT¢Rs) 
SETVEC TSVCTCRS), TS4INTCRS),#INTPRI ;SET UP INTERUPT, PROCESSING CO CONDITIONS. 
MOV TSaINTCRS). -(SP) 
MOV TSVCTCRS),-CSP) 
MOV #3,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
IF R3 NE #0 THEN ; ACTUAL a oe oe R3 
BEQ 50427$ 
IF R3 LT #0 THEN 
TST R3 
BGE 50430$ 
LET PASCNTC(RS) := PASCNT(RS) + #1 
INC PASCNT(RS) 
ELSE 
BR 50431$ 
50430$: 
LET PASCNT(RS) := #1 
903260 MOV #1,PASCNTCRS) 
ENDIF 
50431$: 
ENDIF 
50427$: 
ENDIF 
50426$: 
LET RECCNTC(RS) := #0 sCLEAR RECORD COUNT 
RECCNTCRS) 


JSR PC,NEXTU 


300 IT FOR ALL DEVICES. 


° ee 








—-——— ee ee ee ee A 4 
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| 


023220 013727 002116 MOV LSDLY,(PC)+ 


INITIALIZE SECTION SEQ 0136 
4714 023036 ENDDO 
023036 000724 BR 50424$ 
me 50425$: 
4716 023040 IF R2 EQ #0 THEN ;IF THERE ARE NO UNITS: 
023040 005702 TST R2 
023042 001026 BNE 50432$ 
4717 023044 PRINTF #AUDRPM ;PRINT ALL UNITS DROPPED, 
023044 012746 004741 MOV #AUDRPM, -( SP) 
023050 012746 000001 MOV #1,-(SP) 
023054 010600 MOV SP.RO 
023056 104417 TRAP CPNTF 
023060 062706 000004 ADD 
4718 023064 DELAY 20. ;GO TO SUPERVISOR, WAIT 2 SECONDS” 
023064 012727 000024 MOV $20. ,(PC)+ 
023070 000000 . WORD 
023072 013727 002116 MOV L$DLY,(PC)-+ 
023076 000000 . WORD 
023100 005367 177772 DEC 6(PC) 
023104 001375 BNE 
023106 005367 177756 DEC "32cPC) 
023112 001367 BNE .-20 
4719 023114 BREAK ;GO TO SUPERVISOR, CHECK TTY. 
023114 104422 TRAP CS$BRK 
4720 023116 DOCLN ;D0 CLEAN CODE + ABORT PASS. 
023116 104444 TRAP — C$DCLN 
4721 023120 ENDIF 
mae 023120 50432$: 
4723 023120 SETPRI #PRIOO ;LOWER CPU PRIORITY TO vu 
023120 012700 000000 MOV #PRIO0,RO 
023124 104441 TRAP C$SPRI 
4724 023126 IFB IREC EQ #0 AND #ADR NOTSETIN OPFLAG THEN IF ERROR RECOVERY IS ENABLED 
023126 105737 002210 TSTB. ss TREC 
023132 001145 : BNE 50433$ 
023134 032737 000020 003552 BIT SADR, OPFLAG 
023142 001141 BNE 50433$ 
4725 023144 004737 017666 JSR PC,FIRST ;AND AUTO-DROP NOT CALLED, THEN SET UP FOR FIRST UNI 
4726 023150 WHILE BEVIBLCRS) NE #END DO ;WHILE THERE ARE HORE DEV ICES: 
023150 026527 002536 177777 CMP DEVTBL(RS), #END 
023156 001533 BEQ 50435$ 
4727 023160 : BEGIN COUNTER ;START 3.5 MINUTE COUNTER 
4728 023160 . INCR TIME1 FROM #1 TO #25 BY #1 
023160 012737 000001 003444 MOV #1, TIME1 
023166 000402 BR 50437$ 
023170 50440$: 
023170 005237 003444 INC TIME1 
023174 50437$: 
023174 023727 003444 000025 CMP TIME1, #25 
023202 003106 BGT 504413 
4729 023204 LET @TSDB(RS) := #GSCPK ;AND GET UNITS STATUS 
023204 012775 002324 002456 MOV #GSCPK, aTSDB(RS) 
4730 023212 DELAY 250. ;WAIT 25 MSEC. 
023212 012727 000372 MOV #250. ,(PC)+ 
023216 000000 W 
‘ 
} 


ee a ee 


————“"—=SS_ — s+ - Or a Hy 


: er H11 | 
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023414 000754 BR 50447$ 


INITIALIZE SECTION SEQ 0137 
023224 000000 -WORD 0 
023226 005367 177772 DEC -6(PC) 
023232 001375 BNE .-4 
023234 005367 177756 DEC ~22(PC) 
023240 001367 BNE --20 
4731 023242 IF #TS.SSR SETIN @TSSRCRS) THEN 
023242 032775 000200 002466 BIT #TS.SSR,AITSSRCRS) 
023250 001420 BEQ 50442$ 
4732 023252 IF #TS.OFL NOTSETIN @TSSR(RS) THEN 
023252 032775 000100 002466 BIT #TS.OFL,@TSSRCRS) 
023260 001001 BNE 
4733 023262 LEAVE COUNTER sEXIT COUNTER WHEN UNIT ON LINE 
023262 000456 BR 50436$ 
4734 023264 ELSE 
023264 50443$: 
4735 023264 PRINTF #OFLINM,DEVTBL(RS) ;PRINT UNIT OFF LINE EVERY 10 SEC 
023264 016546 002536 MOV DEVTBLC(RS),-(SP) 
023270 012746 005223 MOV #OFLINM, -(SP) 
023274 012746 000002 MOV #2,-(SP) 
023300 010600 MOV SP ,RO 
023302 104417 TRAP C$PNTF 
023304 062706 000006 ADD #6 ,SP 
4736 023310 ENDIF 
023310 50444$: 
4737 023310 ELSE 
023310 000412 BR 50445$ 
023312 50442$: 
4738 023312 PRINTF #NRDYM,DEVTBLCRS) 
023312 016546 002536 MOV DEVTBL(RS), -(SP) 
023316 012746 024244 MOV #NRDYM, - CSP) 
023322 012746 000002 MOV #2,-(SP) 
023326 010600 MOV P,RO 
023330 104417 TRAP C$PNTF 
023332 062706 000006 ADD #6, SP 
4739 023336 ENDIF 
023336 50445$: 
4740 023336 INCR TIME2 FROM #1 TO #13 BY #1 
023336 012737 000001 003446 — MOV #1, TIME2 
023344 000402 BR 50446$ 
023346 50447$: 
023346 005237 003446 INC TIME2 
023352 50446$: 
023352 023727 003446 000013 CMP TIME2 , #13 
023360 003016 BGT 5 
4741 023362 DELAY 200. ;WAIT FOR UNIT TO BE SET ON-LINE 
023362 012727 000310 MOV #200. ,(PC)+ 
023366 000000 -WORD 0 
023370 013727 002116 MOV L$DLY,(PC)+ 
023374 000000 . WORD 
023376 005367 177772 DEC -6(PC) 
023402 001375 BNE 7-4 
005367 177756 DEC -22(PC) 
023410 001367 BNE .-20 | 
4742 023412 BREAK ALLOW TERMINAL INTERRUPT 
023412 104422 TRAP CSBRK 
4743 023414 ENDINC 
' 
} 
| 


ee, 
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| INITIALIZE SECTION 


023416 

4744 023416 
023416 
023420 

4745 023420 
023420 

4746 023420 
20 


023530 
4763 023530 


4768 023550 
023550 
023552 

4780 023554 


000664 


105737 
001026 


104431 
010037 


013737 
062737 


027727 
002011 


012746 


105037 
012703 
004737 
105037 


104432 
000104 
045 


003444 


012224 
013330 


017734 


003547 


003414 


003414 
010000 


157712 


023554 
000001 


000004 


002217 


003546 
012110 


003547 


101 


000025 


003416 
003416 


010000 


106 MEMOM: 


ENDINC 


END COUNTER 


IF TIME1 GT #25 THEN 


JSR PC, MOVMSG 
JSR PC, TCC1 


JSR PC,NEXTU 
ENDDO 


ENDIF 
IFB PWRFLG EQ #0 THEN 


MEMORY DATAWT 


LET DATARD := DATAWT + #DATCNT 


IF @DATAWT LT #DATCNT THEN 





50450$: 
BR 50440$ 
50441$: 
50436$: 
;IF OFF LINE FOR 3.5 MINUTES 
CMP TIME1, #25 
BLE 50451$ 
;GET MESSAGE PACKET 
;PRINT ERROR AND DROP OFF LINE UNIT 
50451$: 
;REPEAT UNTIL ON LINE OR TIMED OUT. 
SET UP FOR NEXT UNIT. 


BR 50434$ 
50435$: 


50433$: 
TSTB PWRFLG 


BNE 50452$ 
sREQUEST MEMORY FROM SUPER FOR RD/WR BUFFERS. 
TRAP C$MEM 


MOV RO,DATAWT 
;SET RD BFR AD 


MOV DATAWT ,DATARD 
ADD #DATCNT , DATARD 
;WHEN NOT ENOUGH FREE MEMO AVAILABLE 
CMP aDA io » #DATCNT 


BGE 

PRINTF #MEMOM ;WARN OPERATOR 
MOV @MEMOM , - CSP) 
MOV SP ,R 
TRAP CS$PNTF 
ADD #4,SP 

DOCLN ;AND ABORT PASS 
TRAP C$DCLN 

ENDIF ;DIAG MUST BE RE-LOADED IN A ihe Fae MEMO 
ENDIF 


LET CHGFLG :B= #0 
LET RS := #ENDFLG 
JSR PC,CLRERR 
LET PWRFLG :B= #0 


EXIT INIT 


50452$: 
sCLR CHANGE CMD SEQ TBL FLAG. 
CLRB CHGFLG 


MOV #ENDFLG,R3 
;CLEAR ALL FLAGS 


;CLEAR THE POWER FAIL FLAG. 
CLRB_  PWRFLG 


TRAP CSEXIT 
-WORD 1L10013-. 


-ASCII /#AFREE MEMO TOO SMALL FOR RD-WR BFRS#N/ 


EE 


| 


wae = ee 
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INITIALIZE SECTION 
023557 
02 


0. 
4781 023622 
02 


4782 
4783 
4784 023656 


122 
040 


023656 
023656 104411 


L10013: 


-ASCIZ /#ARE-LOAD IN LARGER MEMOSN/ 


-EVEN 


ENDINIT 





S oleeieeneetietaneeenstinenttimsenteees ts i 


SEQ 0139 


TRAP C$INIT 


nn ee = ae 


ee ee ee ee 
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/ AUTO DROP SECTION 


004737 


026527 
001525 


017502 


012700 
104436 


105737 
001423 


016537 


010500 
006200 


104451 
000452 
012775 
004737 
032775 


002536 177777 


003550 
003320 
002466 


024150 
000002 


000006 
002536 020210 


002324 002456 
012124 


000200 002466 


SEQ 0140 
-SBTTL AUTO DROP SECTION 


— 


;SECTION EXECUTED o\ THE INIT CODE WHEN “ADR” FLAG IS SET BY OPERATOR 
ye ns By OR A VALID INTERFACE LOCATION. DROPS UNIT IF NO RESPONSE 
i 


BGNAUTO 
L$AUTO:: 
JSR PC,FIRSTU :FIND FIRST UNIT 
WHILE DEVTBL(RS) NE #END DO 3 
50454$: 
CMP DEVTBLC(RS), #END 
BEQ 50455$ 
LET TRAPD4 :B= #0 : 
CLRB TRAPD4 
SETVEC #4, #TRAP4, #PRIO7 ;SET VECTOR 4 
MOV @PRIO7, -(SP) 
MOV sis -(SP) 
- MOV P) 
MOV sa (SP) 
TRAP caéve 
ADD #10, Sp 
LET R2 := @TSSRCRS) sADDRESS TK25 INTERFACE 
@TSSRCRS),R2 
CLRVEC #4 ;CLEAR VECTOR AT 4 


MOV #4,RO 
TRAP CsCVEC 

TSTB TRAPD4 

BEQ 50456$ 

INC FTLCNTCRS) 
MOV TSSRC(RS),-CSP) 
MOV #AUTODM, -( SP) 
MOV + at 


MOV SP ,RO 
TRAP CSPNTF 
ADD P 


IFB TRAPD4 NE #0 THEN 


LET FTLCNTC(RS) := FTLCNTC(RS) + #1 
PRINTF #AUTODM, TSSR(RS) sPRINT ERROR 


LET DROPN := DEVTBLC(RS) ;SAVE # OF UNIT TO BE DROPPED. 

MOV DE yi ths of DROPN 
LET RO := RS SHIFT -1 eects. — tome 

ASR RO 
DODU RO ;DROP THE UNIT: EXEC soe "wag B IF IDU = 0 
ELSE 
50457$ 

0456$: 
LET @TSOBCRS) := #GSCPK ;SEND GET STATUS COMMAND 
po MOV #GSCPK ,aTSDBC(RS) 


PC,WSSR WAIT 
IF #TS.SSR SETIN A@TSSR(RS) THEN 
BIT #TS.SSR,ATSSRCRS) 


eee + 


ne 


| MISCELLANEOUS SE 
| AUTO DROP SECTI 


024034 
4812 024036 
024036 
024044 
4813 024046 
24046 
4814 024052 
02 


024146 
4828 024150 


0. 
4829 ose ts 


024220 


- —_——— ee ee ee 
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001423 


032775 
001416 








Lil 


BEQ 
IF #TS.OFL SETIN @TSSRC(RS) THEN 
000100 002466 oo 
LET FTLCNTC(RS) := FTLCNTC(RS) + #1 
003320 INC 
PRINTF #OFLINM,DEVTBL(RS) 
002536 
005223 
000002 
000006 
020120 JSR PC,DROPUA 
ENDIF 
50461$: 
ELSE 
BR 
50460$: 
LET FTLCNTC(RS) := FTLCNTC(RS) + #1 
003320 INC 
PRINTF #NRDYM,DEVTBL(RS) 
002536 
024244 
000002 
000006 
020120 JSR PC,DROPUA 
ENDIF 
50462$: 
ENDIF 
50457$: 
017734 JSR PC,NEXTU 
ENDDO 
BR 
50455$: 
ENDAUTO 
L10014: 
101 102 AUTODM: .ASCII /#ABUS TRAP AT s#06sN/ 
123 040 
122 101 
040 101 
040 045 
066 045 
101 111 -ASCIZ /sAINTERFACE BAD OR NOT SET TO ABOVE ADsN/ 
124 105 
106 101 
105 040 
101 104 
117 122 
116 117 
040 123 


SEQ 0141 

50460$ 
#TS.OFL, aTSSR(RS) 
50461$ 
FTLCNT(RS) 
MOV DEVTBL(RS),-(SP) 
MOV OOFLINM, -(SP) 
MOV #2,-(SP) 
MOV SP, RO 
TRAP  C$PNTF 

#6, SP 
50462$ 
FTLCNT(RS) 
MOV DEVTBL(RS), -(SP) 
MOV #NRDYM, -C SP) 
MOV #2,-(SP) 
MOV SP ‘RO 
TRAP  CSPNTF 
ADD 06, SP 
50454$ 
TRAP _— C$AUTO 


ee enaemernd 


a ee ee 
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AUTO DROP SECTION 


4242 116 000 
4830 024244 045 101 125 NRDYM: .ASCIZ /sAUNIT SD18A NOT RDYSN/ 
024247 116 iii 124 
252 040 045 104 
4260 116 117 
024263 124 122 
024266 1 131 
024271 116 
4831 .EVEN 
4832 
4833 ; DEVICE BUS TRAP HANDLER 
4834 ; OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 
pitty ; 0: NO TRAP 
4837 024274 TRAP4:: LET TRAPD4 :B= TRAPD4 + 1 
024274 105237 003550 
4838 024300 000002 RTI 
4839 
4840 


4841 


58 2 
8 
3 
c 


ee -_— 


INCB 


TRAPD4 


SEQ 0142 


SS ee a 
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CLEANUP CODING SECTION SEQ 0143 
4843 .SBTTL CLEANUP CODING SECTION 
4305 
3° 
4846 ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
4847 ; AT THE END OF EACH PASS. 
4848 Bes 
4849 
4850 024302 BGNCLN 
024302 LSCLEAN: : 
4851 024302 IF LCSR NE @0 THEN 
024302 005737 003464 TST —_LCSR 
024306 001403 BED 504638 
4852 024310 LET @LCSR := @LCSR CLR.BY 0100 ;SHUT OFF THE INTERRUPTS 
4310 042777 000100 157146 BIC #100, @LCSR 
4853 024316 ENDIF 
024316 50463$: 
se 
4862 024316 004737 017666 JSR _—PC, FIRSTU ;FIND FIRST UNIT. 
4863 024322 WHILE DEVTAL(RS) NE END DO 
024322 50464$: 
024322 026527 002536 177777 CHP = s« DEVTBL(RS), @END 
024330 001410 EQ 204658 
4864 024332 004737 012124 JSR PC USSR ;WAIT FOR UNIT READY OR TIMEQU 
4865 024336 CLAVEC TSVCT(RS) (RELEASE INTERRUPT VECTORS FOR ALL DE 
024336 016500 002476 HOV TSVCTCRS).RO 
024342 104436 TRAP = CSCVEC 
4866 024344 004737 017734 JSR PC, NEXTU ;FIND NEXT UNIT. 
4867 024350 ENDDO 
024350 000764 BR 504644 
024352 50465$: 
4868 
4869 024352 EXIT CLN 
024352 104432 TRAP CSEXIT 
024354 000002 -WORD L10015-. 
4881 .EVEN 
4882 
4883 024356 ENDCLN 
024356 L10015: 


024356 104412 TRAP CSCLEAN 


_———— a soe a eeeeeees=ccsas ee ll ee 
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DROP UNIT SECTION 
4885 -SBTTL DROP UNIT SECTION 
es 
see 

4888 ; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

4889 s TO NO LONGER BE TESTED. THAT CODE SHALL BE EXECUTED WHEN DODU 

4890 ;MACRO IS CALLED WHILE IDU FLAG IS NOT SET BY OPERATOR 

4894 

4900 024360 LET RS := RO SHIFT 1 sRS = LOGICAL DEVICE NUMBER X 2. 
024360 010005 MOV RO.RS 
024362 006305 ASL R 

4901 024364 LET DEVTBLCRS) := #NINUSE ;SET NOT IN USE FLAG FOR THE DEVICE. 
024364 012765 177774 002536 MOV @NINUSE , DEVTBL (RS) 

4902 024372 PRINTF #DROPDM,DROPN sPRINT DROP DEVICE MESSAGE 
024372 013746 020210 MOV 
024376 012746 004712 MOV 
024402 012746 000002 MOV 
024406 01 MOV 
024410 104417 TRAP 
024412 062706 000006 

4903 024416 EXIT DU 
024416 000167 . WORD 

- WORD 

4915 -EVEN 

4916 

4917 024422 E 
024422 L10016: 
024422 104453 TRAP 


4891 gee 

4892 

4893 024360 BGNDU 
024360 L$DU:: 


: 
a 
| c 
oe ee ee ee 


SEQ 0144 


— ee ne wee owe 
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SECTION 


ADD UNIT 


024512 
024512 
024514 


024516 
024516 
024516 


024520 


010005 
006305 


010065 
104442 
011065 


012065 
162765 


104452 


002536 


002466 


002456 
000002 


002476 
000340 
002516 
002476 
000003 
000010 
003506 


002456 


Cle 


-SBTTL ADD UNIT SECTION 
3 “THE ADD-UNIT SECTION CONTAINS THE CODING THAT afenat A DEVICE 
; TO BE (A) TESTED FOR THE FIRST TIME, OR (8) RESUMED IN TESTING. IF 
3 _"EF. AUNIT“ IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 
i- 
BGNAU 
L$AU:: 
LET RS := RO SHIFT 1 :RS = LOGICAL DEVICE NUMBER x 2. 
ro RO,RS 
LET DEVTBLCRS) := RO ;STORE UNIT # IN DEVICE TABLE. 
RO, DEVTBL(RS) 
GPHARD R0O,RO ;GET HARDWARE P TABLE FROM SUPER. 
TRAP C$GPHRD 
LET TSSRCRS) := (RO) sSAVE TSSR ADDRESS. 
MOV CRO), TSSRCRS) 
LET TSDBCRS) := (RO)+ - #2 :SAVE TSDB ADDRESS. 
MOV (RO)+, LS os ad 
SUB #2, TSOBCR 5) 
LET TSVCTCRS) := (RO) ;SAVE INTERRUPT a reas favercns) 
SETVEC TSVCTCRS), TS4INTC(RS), #INTPRI ;SET UP INTERUPT PROCESSIN™ "NITIONS. 
MOV #IN (SP) 
MOV TS41). ’,-(CSP 
MOV TSVCT\. *SP) 
MOV #3,-(SP. 
TRAP C$SVEC 
ADD #10,SP 
LET INTFLGC(RS) := #0 ;CLEAR INTERRUPT FLAGS. 
CLR INTFLGCRS) 
EXIT AU 
-WORD J$JMP 
«WORD L10017-2-. 
EVEN 
ENDAU 
L10017: 
TRAP CS$AU 
ENDMOD 


i : 
me ee ee ee — 
rrr OI ne 


ADD UNIT 


5005 


CTION 


024520 


024520 
024520 


024530 
024530 
024530 


024532 
024532 


024652 
024652 


105037 
105037 


104402 


012702 
37 


026527 
001434 


016502 
062702 


011265 
042765 


026527 
001014 


016546 
016546 
012746 
012746 
010600 
104417 
062706 
004737 


000740 


017666 


002536 


002506 
000012 


002526 
177400 


003260 


000010 


017734 


177777 


002526 
000001 
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- TITLE HARDWARE TESTS 


-SBTTL TEST 1: 


Die 


BASIC FUNCTIONS. 


;** 
; TEST TO EXECUTE ALL TK25 FUNCTIONS. 


Ti:: 


BGNMOD 
BGNTST 


LET RANDOM :B= #0 
LET EXPBOT :B= #0 


BGNSUB 


LET R2 := #BFSEQO 


JSR PC .BFSEQ 
JSR PC, EXALL 


JSR PC ,FIRSTU 
WHILE DEVTBL(RS) NE #END 20 


LET R2 := MSGPKACRS) 


LET R2 := R2 + #12 
:= (R2) CLR.BY #177400 


LET TS4CL(RS) : 


IF PASCNTC(RS) EQ #1 THEN 


BNE 
PRINTF #CODELM,DEVTBL(RS),TS4CL(RS) ;PR™NT THE TK25 


ENDIF 


JSR PC,NEXTU 
ENDDO 


ENDSUB 


;CLR THE RANDOM OPERATIONS FLAG. 
R RANDOM 


EXPBOT 
sSUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 


L 
;CLR EXPECT BOT FLAG. 
CLRB 


sADR OF CMD SEQ. 
MOV 
;SET UP CMD SEQ. 


sEXECUTE CMD SEQ ON ALL DEVICES. 
:FIND IRST 


THE FIR 


TRAP 


C$BSUB 


#BF SEQO,R2 


;WHILE THERE ARE MORE DEVICES: 

50466$: 
DEVTBL(RS), #END 
50467$ 


CMP 
BEQ 
;GET MSG PACKET ADR, 


;GET XSTAT2 ADR, 


BIC 
;IF THIS IS PASS 1 THEN: 
CMP 


50470$: 
:FIND NEXT UNIT. 


BR 
50467$: 


MSGPKACRS),R2 


(R2), 


ADD #12,R2 
;STORE CODE LEVEL FROM OTR BYTE, 
MOV TS4CL(RS) 


#177400, TS4CL(RS) 
cae #1 
ates LEVEL. 


50466$ 


C$PNTF 
#10,SP 


TL LL Ss t-se-seessm 


_ HARDWARE TESTS 


‘Test 1: BASIC F 


024652 
4652 


024716 
5024 024720 
024720 
024720 


5 
5026 024722 


024736 
024736 


50 

5031 024740 
024740 
024740 


2 
5033 024742 


024756 


5038 024760 
024760 
024760 


co ee 
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UNCTIONS. 


104403 


104402 
012702 
004737 
004737 
105037 


104403 


104402 
012702 
004737 
004737 


104403 


104402 
012702 
004737 
004737 


104403 


104402 


012702 
004737 
004737 


104403 


104402 


025430 
025332 
007036 


003546 


025442 
025332 
007036 


025534 
025332 
007036 





L10021: 


T1.2: 


L10022: 


L10023: 


L10024: 


L10025: 


71.6: 


BGNSUB 


LET R2 : 
JSR 


:* #BFSEQ1 
PC ,BFSEQ 


JSR PC,EXALL 
LET STAFLG :B= #0 


ENDSUB 


BGNSUB 


LET R2 


:= #BFSEQ2 


PC ,BFSEQ 
PC,EXALL 


:= #BFSEQ3 


PC ,BFSEQ 
PC,EXALL 


:= #BFSEQ4 


PC .BFSEQ 
PC,EXALL 





Ele 


TRAP CsESUB 
sSUBTEST 2 - REWIND. 

TRAP C$B6SUB 
;ADR OF CMD SEQ. 

#BF SEQ1 ,R2 


;SET UP CMD SEQ. 
sEXECUTE CMD oe ON ALL DEVICES. 
;CLEAR START FLAG 

CLRB STAFLG 


TRAP CSESUB 
sSUBTEST 3 - WRITE/VERIFY. 
TRAP C$BSUB 


sADR OF CMD SEQ. 
SET MOV #BF SEQ2 ,R2 


UP CMD SEQ. 
;EXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 
sSUBTEST 4 - WRITE TAPE MARK, ERASE. 
TRAP C$BSUB 


;ADR OF CMD SEQ. 
MOV #BF SEQ3,R2 
;SET UP CMD 


SEQ. 
;EXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 
;SUBTEST 5 - SPACE FILES. 
TRAP C$BSUB 


sADR OF CMD SEQ. 
MOV #BF SEQ4 ,R2 
;SET UP CMD SE 


Q. 
sEXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 
sSUBTEST 6 - SPACE RECORDS. 
TRAP C$BSUB 


} 


| 


HARDWARE TESTS 
TEST 1 


BASIC 
5040 024762 

024762 
5041 024766 
5042 024772 
5043 oeeris 


5046 
5047 025002 
025002 


5048 025006 
5049 025012 


5073 025100 


MACRO M1200 28-MAR-85 15:28 PAGE 101-2 
FUNCTIONS. 
LET R2 := #BFSEQS 
012702 025650 
004737 025332 JSR PC ,BFSEQ 
004737 007036 JSR »EXALL 
ENDSUB 
L10026: 
104403 
BGNSUB 
71.7 
104402 
LET R2 := #BFSEQ6 
012702 025722 
004737 025332 JSR PC ,BFSEQ 
004737 007036 JSR PC,EXALL 
ENDSUB 
L10027: 
104403 
BGNSUB 
71.8 
104402 
LET R2 := #BFSEQ7 
012702 025754 
004737 025332 JSR PC ,BFSEQ 
004737 007036 JSR PC,EXALL 
ENDSUB 
L10030: 
104403 
BGNSUB 
71.9: 
104402 
LET R2 := #BFSEQ8 
012702 026006 
004737 025332 JSR PC ,BFSEQ 
004737 007036 JSR PC,EXALL 
ENDSUB 
L10031: 
104403 
BGNSUB 
71.10: 
104402 
LET R2 := #BFSEQ9 
012702 026040 
004737 025332 JSR PC ,BFSEQ 
004737 007036 JSR PC,EXALL 
ENDSUB 
L10032: 
104403 
BGNSUB 





;ADR OF CMD SEQ. 
#BF SEQS ,R2 
;SET UP CMD 


SEQ. 
;EXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 
;SUBTEST 7 - WRITE RETRY. 

TRAP C$BSUB 
sADR OF CMD SEQ. 

MOV #BF SEQ6 ,R2 

;SET UP CMD SEQ. 
;EXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CSESUB 
;SUBTEST 8 - READ REV RETRY. 

TRAP C$BSUB 


sADR OF CMD SEQ. 
MOV #BFSEQ7 ,R2 


;SET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CSESUB 
;SUBTEST 9 - READ FWD RETRY. 

TRAP C$BSUB 
;ADR OF CMD SEQ. 

MOV #BF SEQ8 ,R2 

;SET UP CMD SEQ. 
sEXECUTE CMD SEQ ON ALL DEVICES. 

TRAP CSESUB 
;SUBTEST 10- CLEAN. 

TRAP C$BSUB 


;ADR OF CMD SEQ. 
MOV #BFSEQ9,R2 
;SET UP CMD SEQ 


;EXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 
SUBTEST 11 - WTV SWAPPED DATA BYTES. 


i 
‘ 


1] 


Ol 
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FUNCTIONS. 


TEST 1: 


BASIC 
025100 


025100 
4 


5075 


025102 
025 


025270 
025274 


104402 
012702 
004737 
004737 
112737 
004737 
105037 
104403 


013702 
062702 


020237 
001402 
000342 


000773 


105237 


104402 
012737 
004737 
012737 
004737 
112737 


012737 
004737 


012737 
004737 


012737 
004737 
012737 
004737 
105037 


026062 
025332 
007036 


000001 
007036 


003536 


003414 
000012 


003414 


003542 


104401 
016642 
000012 
016642 
000001 
000011 
016642 
000012 
016642 
104001 
016642 


000011 
016642 


003536 


003536 


003426 


002322 


003536 
002322 


002322 


003426 


002322 


T1.11: 


L10033: 


T1.12: 


TRAP C$BSUB 


;ADR OF CMD SEQ. 


LET R2 := #BFSE10 
MOV #BF SE10,R2 


JSR PC ,BFSEQ ;SET UP CMD SEQ. 
JSR PC, EXALL ;WRITE/VERIFY RECORDS 1 AND 2. 
LET SWBFLG :B= 1 ;ENABLE BYTE SWAPPING. 


VB #1, —w 
;WRITE/VERIFY RECORDS 3 AND 4 


JSR PC,EXALL 
;DISABLE BYTE SWAPPING. 
CLRB 


LET SWBFLG :B= #0 


SWBFLG 
ENDSUB 
TRAP CSESUB 
LET R2 := DATAWT + #10. sINIT WRITE BUFFER POINTER. 
MOV DATAWT ,R2 


‘ ADD #10. ,R2 
WHILE R2 NE DATAWT DO ;UNTIL 10 BYTES HAVE lies 


CMP R2,DATAWT 


BEQ 50472$ 
on -(R2) ;SWAP DATA BYTES IN WRITE BUFFER. 
BR 50471$ 
50472$: 
LET TISWB :B= TISWB + #1 sSET T1 SWAP BYTES FLAG FOR “CKDATA” SUBR 
INCB T1SWB 
BGNSUB sSUBTEST 2 - READ SWAPPED DATA BYTES. 
TRAP C$BSUB 
LET CMDWRD := #RDR ;CMD IS READ REV. 
V #ROR , CMDWR 
JSR PC, VFEXC ;VERIFY ODD LENGTH SWAP RECORD 4). 
LET CMDPKT+CP.CNT := #12 ;CHANGE BYTE COUNT TO 1 
MOV 2,CMDPKT+CP.CNT 
JSR PC, VFEXC ;VERIFY EVEN ire De SWAP "(RECORD 3). 
LET SWBFLG :B= #1 sENABLE BYTE SWA oe 
MOVB #1, SWBFLG 
LET CMDPKT+CP.CNT := #11 ;CHANGE BYTE eer f TO 9. 
MOV 1, CMDPKT+CP.CNT 
JSR PC, VFEXC sVERIFY ODD LENGTH SWAP CRECORD 2). 
LET CMDPKT+CP.CNT := #12 ;CHANGE BYTE COUNT TO *,. 
MOV 2,CMDPKT+CP.CNT 
JSR PC, VFEXC ;VERIFY EVEN mn SWAP "(RECORD 1). 
LET CMDWRD := #RDF ;CMD IS READ F Oa OF .CHOWRD 
JSR PC, VFEXC s;VERIFY EVEN LENGTH SWAP *ERECORD 1). 
LET CMDPKT+CP.CNT := #11 sCHANGE BYTE COUNT TO 9. 
MOV #11,CMDPKT+CP.CNT 
JSR PC, —, ;VERIFY ODD LENGTH SWAP (RECORD 2). 
LET SWBFLG :B= ;DISABLE BYTE SWAPPING. 


SWBFLS 


CLRB 
LET CMDPKT+CP.CNT := #12 ;CHANGE BYTE COUNT TO 10. 


| HARDWARE TESTS 


TEST 1: BASIC F 


025274 

5106 025302 

5107 025306 
025306 

5108 025314 

5109 

5110 025320 
025320 
025320 

5111 

5112 025322 
025322 

5113 

5114 

5115 025326 
025326 
025330 


——— «+ 
a“ 


lA 
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012737 
004737 


012737 
004737 


104403 


105037 


104432 


000554 


000012 002322 
016642 


000011 002322 
016642 


003542 


L10034: 


JSR PC, VFEXC 
LET CMDPKT+CP.CNT := #11 


JSR PC, VFEXC 
ENDSUB 


LET TISWB :B= #0 


EXIT TST 


MOV #12, CMDPKT+CP.CNT 
;VERIFY EVEN LENGTH SWAP (RECORD 3). 
OUNT TO >. 


1, CMOPKT+CP.CNT 


;CHANGE BYTE C mt 
;VERIFY ODD LENGTH SWAP (RECORD 


TRAP 


;CLEAR T1 SWAP BYTES FLAG 
CLRB T1iSWB 


TRAP 
. WORD 


4). 


CSESUB 


CSEXxIT 


L10020-. 


| HARDWARE TESTS 


| TEST 1: BASIC F 


5134 025356 
5135 025360 


5117 
5118 
5119 
5120 
5136 025362 
51 5364 

| 

| 

4 


eee 
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SUBROUTINE TO MOVE A ay SEQUENCE TO THE SEQUENCE TABLE. 
INPUTS: R2 = FWA OF COMMAND SEQUENCE. 


H 
3 OUTPUTS: 
5 REGISTERS: 
3 CALLS: 
BFSEQ@: LET R1 := #CMDSEQ ;INIT SEQ TABLE ADDRESS. 
012701 003554 MOV “@CMDSEQ,R1 
WHILE (R2) NE #END DO ;WHILE THERE ARE MORE COMMANDS: 
50473$: 
BEQ 
LET (R1)+ := (R2)+ s;MOVE COMMANDS TO SEQ TABLE. 
012221 MOV (R2)+,(R1)+ 
ENDDO 
000773 BR 50473$ 
50474$: 
LET (R1) := #END ;STORE END OF SEQUENCE CODE. 
012711 177777 MOV #END,CR1) 
000207 RTS PC ;RETURN. 


i BASIC FUNCTION COMMAND SEQUENCE 


140004 BFSEQO: .WORD SCH ;SET CHAR. 200. (1) 
000200 200 
000001 1 
000000 0 
100013 DRI ;DRIVE INIT. (2) 
000001 1 
000001 1 
000000 0 
140004 SCH ;SET CHAR. 20 (3) 
000020 20 
000001 1 
000000 0 
100017 GES ;GET STATUS. (4) 
000001 1 
01 1 
000000 0 
140004 SCH ;SET CHAR. 40. (5) 
000040 40 
000001 1 
000000 0 
177777 -WORD END 
102010 BFSEQ1: RWD sREWIND TWICE. (6) 
000001 1 
000002 2 
000000 0 
177777 -WORD END 
104105 BFSEQ2: WTV ;WRITE/VERIFY PAT 1. (7) 
010000 DATCNT 
000001 
000001 1 


021227 177777 CMP (R2), #END 

001402 50474$ 
| 
| 


| HARDWARE TESTS 


Jle2 


| TEST 1: BASIC FUNCTIONS 


S222 025626 


000000 
177777 -WORD END 
100011 BFSEQ3: we 


000000 0 
177777 -WORD END 
105410 BFSEQ4: SFR 
000002 2 


000001 1 
000000 0 
105410 SFR 


ee eee sa 


SEQ 0152 : 
;WTV PAT 2. (8) 
;WTV PAT 3. (9) 
' 
;WTV PAT 4. (10) | 
;WTV PAT S. (11) 
;WTV PAT 6. (12) 
;WTV PAT 0. (13) 
;WRITE TAPE MARK. (14) 
;WRITE 10 RECORDS. (15) 
;ERASE 10 TIMES. (16) 
;WRITE TAPE MARK. (17) 
;WTM RETRY (18) 
;SPACE 2 FILES REV. (19) 
;SPACE 2 FILES FMD. (20) : 
;SPACE 2 FILES REV. (21) | 
| 
} 


| TEST 1: 


ase: 025630 


asee 025720 
5254 025722 


5 5770 
5275 025772 
5276 025774 
5277 025776 
5278 026000 
5279 026002 


ee 


177777 
102010 


177777 
102010 
000001 
000001 
000000 


001 
177777 
104401 
0100 


BFSEQS: 


BFSEQ6: 


BFSEQ7: 





- WORD 


. WORD 
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Oorre DW MONK NnOI-NOrIVOrRIVOrRrR DD monr~ onre 
yet 8 weet pet oe kee ow 8 ree 


Oo 
D> 
~ 
oO 
F 4 
=4 


sSPACE 2 FILES FWD. 


;REWIND. 


;SPACE 7 RECORDS FWD. 


;SPACE 7 RECORDS REV. 


;SPACE 7 RECORDS FWD. 


;SPACE 7 RECORDS REV. 


sREWIND. 


;WRITE. 


s;WRITE RETRY. 


sREAD REV. 


sREAD NEXT REV. 


sREAD NEXT FWD. 


(22) 


(23) 


(24) 


(25) 


(26) 


(27) 


(28) 


(29) 


(30) 


(31) 


(32) 


(33) 


| HARDWARE TESTS 


| TEST 1: BAS.” © 


5280 026004 


5282 026006 
5283 026010 
5284 026012 


0261 
seie 026102 
5316 
5317 026104 
026104 
026104 


— — ————— lL 





Lie 
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177777 


177777 
101012 


177777 
104105 
000012 
000001 


000000 
104105 
000011 
177777 


104401 


-WORD END 
BFSEQS8: 


;READ FWD. (34) 
RPF ;READ PREVIOUS FWD. (35) 


sREAD PREVIOUS REV. (36) 


1 
-WORD END 
BFSEQ9: .WORD CLN ;CLEAN. (37) 


RWD sREWIND (38) 


-WORD END sEND OF SEQUENCE. 
BFSE10: WTV s;WRITE/VERIFY EVEN LENGTH. (39) 


WTV ;WRITE/VERIFY ODD LENGTH. (40) 


-WORD END 
-EVEN 


ENDTST 
L10020: 
TRAP CSETST 


SEQ 0154 | 


a eae - -- - - — 
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TEST 2: DATA RELIABILITY. SEQ 0155 
5319 -SBTTL TEST 2: DATA RELIABILITY. 
3331 
3° 
a35§ ; TEST TO CHECK THE DATA RELIABILITY OF THE TK25. 
g=* 
5324 026106 BGNTST 
5325 026106 T2:: 
5326 026106 LET RANDOM :B= #1 ;SET THE RANDOM OPERATIONS FLAG. 
026106 112737 000001 003533 MOVB #1 ,RANDOM 
327 026114 LET EXPBOT :B= #0 :;CLEAR EXPECT BOT FLAG. 
026114 105037 003532 CLRB EXPBOT 
5328 026120 LET R2 := @DATCNT - #1 ;SET UP THE RECORD LENGTH MASK 
026120 012702 010000 MOV aOATENT, Ro 
026124 005302 DEC R2 
5329 026126 LET LENMSK := COMP R2 ;ALLOW MAXIMUM BUFFER. 
026126 010237 003436 MOV R2,LENMSK 
026132 005137 003436 COM LENM 
5330 026136 004737 006772 JSR PC,SETCH :CMD 1 = SET CHARACTERISTIC. 
5331 026142 IFB STAFLG NE #0 THEN ;IF STARTING THEN: 
026142 105737 003546 TSTB STAFLG 
026146 001404 BEQ 50475$ 
5332 026150 004737 007016 JSR  PC,SETRW ;CMD2=REWIND 
5333 026154 LET STAFLG :B= #0 ;CLR START FLAG. 
026154 105037 003546 CLRB STAFLG 
5334 026160 ENDIF 
026160 50475$: 
5335 026160 LET (R1)+ := @WRT ;CMD3 = WRITE. 
026160 012721 104005 MOV OWRT ,CR1)+ 
5336 026164 LET (R1i)+ := #DATCNT ;SET BRF TO MAX FOR PATTERN GENERATION. 
026164 012721 010000 MOV @DATCNT,(R1)+ 
5337 026170 LET R2 := COMP #RNOPSC 
026170 012702 177740 MOV @RNOPSC ,R2 
026174 005102 COM Re 
5338 026176 LET (R1)+ := R2 331 OPERATIONS. 
026176 010221 MOV R2,(R1)- 
5339 026200 LET (R1)+ := @RANP ;RANDOM PATTERN. 
026200 012721 000007 MOV @RANP ,(R1)+ 
5340 026204 REPEAT ;REPEAT TO EOT: 
026204 0476$: 
5341 026204 WHILE R1 LT #SEQEND DO FILL SEQ TBL WITH RANDOM CMDS. 
026204 50477$: 
026204 020127 003644 CMP R1, @SEQEND 
026210 002012 BGE 50500$ 
5342 026212 LET RANS := RANS + RANB 
026212 063737 003440 003442 ADD RANB , RANS 
5343 026220 LET R2 := RANS CLR.BY #177741 ;R2 = RANDOM @ (0 - 36). 
026220 013702 003442 MOV RANS ,R2 
026224 042702 177741 BIC 0177741 ,R2 
5344 026230 004772 026366 JSR PC,@RANCMD(R2) ;SET UP A RANDOM CMD «+ BRF. 
5345 026234 ENDDO 
026234 000763 BR 50477$ 
026236 50500 
5346 026236 LET (R1) := @END ;STORE END OF SEQUENCE "Cove IN TABLE. 
026236 012711 177777 1 
5347 026242 004737 007036 JSR PC, EXALL 3GO EXECUTE ALL CHOS IN SEQUENCE TABLE. 


5348 026246 LET R1 := #CMDSEQ s;INIT CMD SEQ TBL POINTER, 





« . ee eee eee 
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026246 012701 003554 
5349 026252 UNTIL R2 NE 90 
026252 702 
026254 001753 
5350 026256 LET ALLEOT :B= ALLEOT + #1 
256 105237 003543 
5351 026262 000240 NOP 
5352 026264 000240 NOP 
5353 026266 000240 NOP 
sees 026270 004737 030364 JSR PC, TSWEOT 
sit 
5358 026274 004737 026426 JSR PC ,.RANRD 
5359 026300 LET CMDSEQ+4 := COMP #RNOPSC 
026300 012737 177740 003560 
026306 005137 003560 
5360 026312 LET CMDSEQ+14 := CMDSEQ+4 
026312 013737 003560 003570 
5361 026320 LET (R1) := #END 
026320 012711 177777 
5362 026324 004737 007036 JSR PC,EXALL 
5363 026330 LET ALLEOT :B= 00 
026330 105937 003543 
5364 026334 LET RPTFLG :B= #1 
112737 000001 003535 
5365 026342 LET R1 := #CMDSEQ 
026342 012701 003554 
5366 026346 004737 007016 JSR PC, SETRW 
5367 026352 LET (R1) := #END 
026352 012711 177777 
sure 026356 004737 007036 JSR PC,EXALL 
5370 026362 EXIT TST 
026362 104432 
026364 000174 


5371 


OCMOSEQ.R1 
sREPEAT UNTIL E cor. “ys = 
Be 50476$ 
sFLAG ALL UNITS @ EOT 
INCB ALLEOT 


SEQ 0156 


ON HE CLEAN IRG GAP 
AD REV THAT pb bg Cros RE-POSITION THE TAPE 


iSET UP READ REV/ 
;® OF RECORDS FOR READ REV. 
MOV ORNOPSC , CMOSEQ-4 
COM CMOSEQ-4 
:@ OF RECORDS FOR READ FORWARD. 
MOV CMOSEQ-4 CHOSEG.14 
;STORE END OF SEQUENSE CODE IN SEQ 


Ri 
:GO EXECUTE READ REV/FUD OF LAST N RECORDS. 
sCLEAR ALL UNITS @ EOT FLAG 


CL Re ALLEOT 
sREQUEST PERFORMANCE REPORT DURING REWIND. 
vB 01,RPTFLG 
sINIT SEQ TBL POINTER, 
Vv @CMOSEQ,R1 
sSTORE REWIND IN i TeL, 
sSTORE END IN SEQ TBL, 
@END,(R1) 
sEXECUTE REWIND CMD ON ALL UNITS 


TRAP CSExIT 
-WORD L10035-. 


se ne 


———_—— — ee ddl el le ei mm a eee ee ee eae oe 


B13 





5413 026500 000207 RTS PC 
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TEST 2: DATA RELIABILITY. SEQ 0157 
| 
5373 $ ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 
5374 $ THE DATA RELIABILITY TEST. 
026502 RANCMD: RANWR sWRITE. 
5377 026370 026502 RANWR sWRITE 
5378 026372 026502 RANWR WRITE. 
S379 026374 026502 RANWR sWRITE. 
5380 026376 026502 RANWR ;WRITE. 
5381 026400 026502 RANWR sWRITE. 
5382 026402 026502 RANWR ;WRITE. 
5383 026404 026502 RANWR ;WRITE. 
026406 926426 RANRD ; 
5385 026410 C€26426 RANRD ;READ 
026426 RANRD ;READ 
5387 026414 026426 RANRD s;READ 
5388 026416 026426 RANRD ;READ 
026426 RANRD ;READ 
5390 026422 026426 RANRD READ 
5391 026424 026426 RANRD s;READ 
5392 
5393 
5394 
5395 
5396 
5397 ; SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE. 
5398 ; INPUTS: 
5399 : OUTPUTS: 
5400 : REGISTERS: R2 
ree} . CALLS: 
5403 026426 RANRD: LET (R1)+ := #SRR sSTORE SPACE RECORD REVERSE CMD 
026426 012721 104410 MOV #SRR,CR1)+ 
5404 026432 LET RANB := RANB + RANS 
026432 063737 003442 003440 ADD RANS , RANB 
5405 026440 LET R2 := RANB CLR.BY #RNOPSC 
026440 013702 003440 MOV RANB ,R2 
026444 042702 177740 BIC @RNOPSC, R2 
5406 026450 LET (R1)+ := R2 ;SET REPOSITION COUNT 
026450 010221 MOV R2,(R1)+ 
5407 026452 LET (R1)+ := #1 300 ONCE 
026452 012721 000001 MOV #1,(R1)+ 
5408 026456 LET (R1i)+ := @RANP ;RANDOM PATTERN. 
026456 012721 000007 MOV @RANP ,CR1)+ 
5409 026462 LET (R1)+ := #RDF ;STORE READ FWD CMD. 
026462 012721 104001 MOV @ROF ,(R1)+ 
5410 026466 LET (R1)+ := #DATCNT ;SET BRF TO MAX TO READ RANDOM LENGTHS. 
026466 012721 010000 MOV @DATCNT,CR1)+ 
5411 026472 LET (R1)+ := R2 ;SET RANDOM # OF OPERATIONS. 
026472 010221 MOV R2,(R1)+ 
5412 026474 LET (R1)+ := #RANP ;RANDOM PATTERN. 
026474 012721 000007 MOV @RANP ,(R1)+ 
| | 
| 


LLL LLL LLL LLL LL tilt Ut 


Se 
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026502 
026502 


2 026 


506 
026512 


026514 
026514 
026520 


026524 
8 


026526 
026526 


1 
026532 
0. 


026560 
026560 
026560 


012721 
yood 24 


012721 
004737 
000207 


012721 


063737 


013702 
042702 


010221 


012721 
000207 


104401 


104005 
026526 


104105 
026526 


010000 
003442 


003440 
177740 


000097 


003440 


RANWV: 


RANW: 


L10035: 


SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE. 
OUTPUTS: 
REGISTERS: 
CALLS: 
LET (R1)+ := @WRT ;STORE WRITE CMD. 

@WRT,(R1)+ 
Jr Pc. RANH ;STORE BRF, # OF OPERATIONS, PATTERN. 


SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
OUTPUTS: 
REGISTERS: 
CALLS: 
LET (R1)+ := @WTV ;STORE WRITE/VERIFY CMD. 

V @WTV,(R1)-+ 
JSR PC. RANH ;STORE BRF, # OF OPERATIONS, PATTERN. 


SUBROUTINE TO STORE BRF, # OF OPERATIONS, PATTERN IN COMMAND 
Sate TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 


OUTPUTS: 
REGISTERS: R2 
CALLS: 


sSET BRF TO MAX FOR PATTERN GENERATION. 


LET (R1)+ := #DATCNT 
ATCNT,(R1)+ 


SEQ 0158 


MOV #D 
sRANDOM BRF WILL BE GENERATED FOR EACH RECORD. 


LET RANB := RANB + RANS 
LET R2 := RANB CLR.BY #RNOPSC 


ADD RANS ,RANB 

MOV RANB ,R2 

BIC @RNOPSC ,R2 
LET (R1)+ := R2 ;SET RANDOM @ OF OPERATIONS: | 
LET (R1)+ := #RANP ;RANDOM PATTERN. : 

MOV @RANP,(R1)-+ 
RTS PC ;RETURN. 
EVEN 
ENDTST 

TRAP CS$ETST 


ne ne ee e+ 


—_—_——_——_————- 
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Bozo 


026 

026662 
96 026664 
026664 
5497 026672 
026672 
5498 026676 
026676 
5499 026704 


105737 
001012 


105237 


105037 
105037 
004737 
004737 
105037 


012711 


026527 
001550 
016537 
005077 
112737 


003340 


022157 
000001 


177777 
007036 
017666 


002536 


002550 
154630 
000377 


-SBTTL TEST 3: WRITE AND READ STREAMING TEST. 


3;** 
i 
F nee TEST STREAM WRITES 9000 RECORDS OF 4096 BYTES EACH. 
3 DATA IS THEN VERIFIED BY PERFORMING A REWIND OPERATION, FOLLOWED 
$ BY A READ FORWARD OPERATON FOR THE 9000 RECORDS. 
; 
.== 
BGNTST 
T3:: 


IFB HERE EQ #0 THEN 


PRINTF #TAPCAP 


LET HERE :B= HERE + #1 
ENDIF 
LET RANDOM :B= #0 
LET EXPBOT :B= #0 
JSR PC, a, 
JSR PC, SETR 
LET STAFLG Be #0 
LET (R1) := #END 


JSR PC, EXALL 
JSR PC, FIRSTU 


TSTB HERE 
BNE 
MOV #1,-(SP) 
SP ,RO 
TRAP CSPNTF 
ADD #4,SP 


INCB HERE 


50501$: 
CLEAR THE ec 
;CLEAR THE EXPECT BOT FLAG. 
CLRB EXPBOT 
#SET CHARACTERISTICS. 
T REWIND Sp ey IN BUFFER. 
SCLEAR THE START FLAG. 
CL RB STAFLG 
sPLACE END FLAG TE eae TABLE. 


#END,(R1) 
sREWIND ALL UNITS. 
sFIND THE FIRST UNIT TO TEST (UUT) 


EERKEREEEREEEEEEEEEEER EER EEEEEEEEREREREREREREREEEEEESE SE CESS 


;WRITE AND READ EACH UNIT IN TURN BEFORE GOING ON TO THE NEXT. 


§ EEKERKEEEEEE EERE ERERAE REESE SESREEESEEREEEEEESESE SEES 


WHILE DEVTBLC(RS) NE #END DO 


177777 

LET BTPT := BTADDRCRS) 
003526 

LET @BTPT := #0 

LET STREAM :B= #255. 
003544 


LET R1 := #CMDSEQ 


s;WHILE THERE ARE MORE DEVICES: 
50502$: 


CMP DEVTBLCRS), #END 
BEQ 50503$ 


;CLEAR BAD SPOT — 
;START FROM BOT 

R aBTPT 
;SET FLAG - WE'RE GOING TO STREAM 


MOVB #255. STREAM 
;SETUP SEQUENCE TABLE ADDRESS 


BTADDR(RS),BTPT 
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026704 012701 003554 MOV #CMDSEQ,R1 
5500 026710 LET (Ri)+ := @WRT ;WRITE COMMAND 
026710 012721 104005 Vv @WRT,CR1)+ 
5501 026714 LET (R1i)+ := @DATCNT ;4096-BYTE RECORD LENGTH. 
026714 012721 010000 MO #DATCNT ,CR1)+ 
5502 026720 LET (Ri)+ := #9000.  ;WRITE 9000 RECORDS. 
26720 012721 021450 #9000. ,(R1)+ 
5503 026724 LET (R1)+ := #5 ;GENERATE AND WRITE PATTERN 5. 
26724 012721 000005 sCR1)+ 
5504 026730 LET (Ri) := #END ;SET END OF SEQUENCE TABLE. 
026730 012711 177777 #END,(R1) 
5505 026734 LET R1 := #CMDSEQ ;SEQ. TABLE ADDRESS FOR SUBR. ‘SETUP’. 
26734 012701 003554 #CMDSEQ,R1 
5 026740 004737 010000 JSR PC, SETUP ;SETUP THE COMMAND TABLE 
5507 026744 LET RSSAVE := RS ;SAVE RS, EH? 
5508 026744 010537 003460 MOV RS,RSSAVE 
5 026750 WHILE NCNT LT NCNT1 DO ;WHILE MORE RECORDS SHOULD BE WRITTEN: 
026750 50504$ : 
026750 023737 003420 003422 CMP NCNT ,NCNT1 
5510 026756 002022 BGE 50505$ 
5511 026760 004737 007672 JSR PC, CMDAC SAVE ASCII COMMAND FOR ERROR MESSAGE 
5512 026764 004737 010774 JSR PC, EXCUTE ISSUE COMMAND TO UNIT 
5513 026770 004737 011470 JSR PC, GOWAIT ;GO WAIT FOR DONE TO SET 
5514 026774 IF DEVTBL(RS) EQ #NINUSE THEN 
026774 026527 002536 177774 CMP DEVTBLCRS), #NINUSE 
027002 001005 BNE 50506$ 
5515 027004 LET NCNT := NCNT1 - #1 
27 013737 003422 003420 MOV NCNT1,NCNT 
027012 005337 003420 DEC NCNT 
5516 027016 ENDIF 
27016 50506$ : 
5517 027016 LET NCNT := NCNT + #1 sUPDATE THE RECORD COUNT 
27016 005237 003420 INC NCNT 
5518 027022 ENDDO sEND OF RECORD ‘DO’ LOOP 
027022 000752 BR 50504$ 
027024 S05$: 
5519 027024 LET R1 := #CMDSEQ sRESET R1 TO TOP OF TABLE 
27024 012701 003554 MOV #CMDSEQ,R1 
5520 027030 004737 007016 JSR PC,SETRW s;ISSUE REWIND 
5521 027034 LET (Ri) := #END ;PLACE END FLAG IN SEQUENCE TABLE 
27034 012711 177777 ND,(CR1) 
5522 027040 LET -(SP) := L$LUN SAVE THE CURRENT LUN 
7040 013746 002074 MOV L$LUN, -CSP) 
5523 027044 004737 007036 JSR PC,EXALL ;D0 REWIND, NOW 
5524 027050 LET RS := RSSAVE sRESTORE RS 
27050 013705 003460 MOV RSSAVE ,RS 
5525 027054 LET L$LUN := (SP)+ sRESTORE THE CURRENT LUN 
7054 012637 002074 MOV (SP)+,L$LUN 
5526 027060 IF DEVTBLC(RS) NE #NINUSE THEN 
27060 026527 002536 177774 CMP DEVTBLC(RS), #NINUSE 
7066 001431 BEQ 50507$ 
5527 027070 LET R1 := #CMDSEQ ;TOP OF COMMAND TABLE 
027070 012701 003554 MOV #CMDSEQ,R1 
5528 027074 LET (R1)+ := #RDF ;READ FORWARD COMMAND 
027074 012721 104001 MOV #ROF ,CR1)+ 


Ee 
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| TEST 3: 


027176 
027202 


0. 
027236 


027242 
027242 
027244 


027246 
027246 
027246 


012721 
012721 
012721 
012721 
sare 
112737 
S58 
013705 


005037 
012703 
004737 
105037 
105037 
004737 


000624 


105037 
105037 
112737 
012701 
004737 
012711 
004737 


104432 
000002 


104401 


010000 
021450 
000005 
177777 


003554 
010000 


000001 


003460 
016530 


003460 


003420 


003506 
012110 


003534 


003532 
017734 


003544 
003543 
000001 


003554 
007016 


177777 
007036 


003534 


003535 


L10036: 


LET 
LET 
LET 
LET 
LET 


JSR 
LET 


LET 


JSR 
LET 


ENDIF 
LET NCNT 
LET R3 : 


JSR PC, CLRERR 
LET VFYFLG :B= 


LET EXPBOT :B= 
JSR PC, NEXTU 


(Ride : 
(Ri)+ : 
CRi)+ : 


(Ri)+ : 
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#DATCNT 
#9000. 
#5 
#END 


Rl := #CMDSEQ 


PC 


» SETUP 
VFYFLG :B= #1 
RSSAVE := 


RS 


PC, VFYDAT 
RS := RSSAVE 


ENDDO 


LET STREAM :B= 
LET ALLEOT :B= 
RPTFLG :B= 
:= #CMDSEQ 


PC, SETRW 
LET (R1) 


PC, EXALL 
TST 


LET 
LET 
JSR 
E 
JSR 
EXIT 


-EVEN 


R1 


ENDTST 


:= #0 
:= #ENDERF 


#0 
#0 


#0 
#0 
#1 


:= #END 


SEQ 0161 


;4096 BYTE RECORDS ° 
MOV —- @DATCNT, (R1)+ 
;9000 ITERATIONS 


MOV #9000. ,(R1)+ 
sREAD PATTERN NUMBER 5S 
#5,(R1)+ 
; TABLE TERMINATOR 
#END,(CR1)+ 
;TOP OF TABLE, AGAIN! 
MOV #CMDSEQ,R1 
;SET UP_THE COMMAND TABLE 
;ALLOW THE DATA VERIFY 
VB #1 ,.VFYFLG 


sSAVE RS 
MOV RS, RSSAVE 
:GO OFF — CHECK READ OPERATIONS 


sRESTORE R 
MOV RSSAVE ,RS 


50507$: 
sCLEAR RECORD COUNT 


L 
sEND OF BUFFER — 


sRESET THE ERROR BUFFER 
;CLEAR VERIFY FLAG 

CLRB VF YFLG 
sCLEAR EXPECT BOT FLAG. 

CLRB EXPBOT 
sGET NEXT UNIT TO TEST (UUT). 


sEND OF UUT LOOP 
BR 50502$ 
50503$: 
;CLEAR STREAMING FLAG FOR OTHER TESTS. 
RB STREAM 
sRESET THE UNITS @ EOT STATUS 
CLRB ALLEOT 
sREQUEST A REPORT 
MOVB #1,RPTFLG 
;TOP OF TABLE 
#CMDSEQ,R1 


MOV 
sSTORE THE REWIND COMMAND 
; TERMINATOR 


MOV #END, CR1) 
;REWIND AND REPORT STATUS FOR ALL UNITS 
sEXIT TEST 


NCNT 
#ENDERF ,R3 


TRAP CSEXIT 
-WORD L10036-. 
;JUST IN CASE. 


TRAP CSETST 


a 
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027250 
027250 


5590 027362 


5594 027366 


027376 
5597 027402 


112737 
105037 


012702 
005302 


010237 
105037 


020127 


012711 
004737 
012701 


005702 
001762 


105237 
000240 
000240 
000240 
004737 


105037 
004737 


012711 
004737 


WRITE AND READ STREAMING TEST. 


000001 003533 
003532 
010000 
003436 
003436 
006772 
007016 
003546 


003644 
026502 


177777 
007036 


003554 


003543 


030364 


003543 
007016 


177777 
007036 





ae 


-SBTTL TEST 4: WRITE COMPATABILITY/WRITE UTILITY. 


++ 
; TEST TO WRITE RECORDS FROM BOT TO EOT. 


T4:: 


BGNTST 


LET RANDOM :B= #1 
LET EXPBOT :B= #0 
LET R2 := #DATCNT - #1 


LET LENMSK := COMP R2 


JSR PC,SETCH 

JSR PC, SETRW 

LET STAFLG :B= #0 
REPEAT 


WHILE R1 LT #SEQEND DO 
JSR PC,RANWR 
ENDDO 


LET (R1) := #END 


JSR PC, EXALL 
LET R1 := #CMDSEQ 


UNTIL R2 NE #0 


LET ALLEOT :B= ALLEOT + #1 


) 
JSR PC, TSWEOT 


LET ALLEOT :B= #0 


JSR PC,SETRW 
LET (R1) := #END 


JSR PC,EXALL 


;SET THE RANDOM OPERATIONS FLAG. 
vB 1,RANDOM 
sCLEAR EXPECT BOT = 


EXPBOT 
sSET UP THE RECORD LENGTH MASK. 
MOV #DATCNT ,R2 


DEC 
sALLOW MAXIMUM BUFFER. 
MOV R2,LENMSK 


COM LENM 
;CMD a = SET CHARACTERISTIC. 
;CMD2=R EWIND 
;CLEAR START FLAG 
CLRB STAFLG 
;REPEAT TO EOT. 
50510$: 
;WHILE THERE IS MORE ROOM IN SEQ TABLE: 
50511$: 
CMP R1,#SEQEND 
BGE 50512$ 
;STORE A WRITE CMD IN SEQUENCE TABLE. 
50511$ 
50512$: 
sSTORE END OF SEQUENCE CODE IN TABLE. 


MOV ND, (R1) 
sEXECUTE ALL CMDS IN SEQ TBL ON UNITS. 
;INIT SEQ TBL POI INTER, 
#CMDSEQ,R1 


MOV 
sREPEAT UNTIL EOT IS REACHED 
TST R2 
BEQ 50510$ 
;SET ALL UNITS @ EOT FLAG 
INCB ALLEOT 


C IRG GAP 
;READ REV THAT EXTRA REC TO RE-POSITION TAPE 
;CLEAR ALL UNITS @ EOT FLAG 
CLRB ALLEOT 


sSTORE REWIND IN SEQ TBL, 
sSTORE END IN SEQ TBL, 
#END,(R1) 


MOV 
;EXECUTE REWIND CMD ON ALL UNITS 


' 


een rr ase sees 


ee ee ee 
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027410 


027412 


3 
08 027414 
027414 


5609 
5610 027414 
5611 027422 


5620 027470 


5629 027474 


0. 
5633 027514 


34 
5635 027520 
027520 


| 
| 
5598 027406 
027406 
027522 
| 
} 


104432 
000002 


104401 


112737 
112737 
004737 
105037 
012721 
012721 
012721 
012721 


012711 
004737 


105037 


012701 
004737 


012721 
004737 


104432 
000002 


000001 003533 
000001 003532 
007016 
003546 
104001 
010000 
077777 
000007 


177777 
007036 


003543 


003554 
007016 


177777 
007036 


EXIT TST 
TRAP CSEXIT 
-WORD 1L10037-. 
.EVEN 
ENDTST 
L10037: 
TRAP CSETST 
-SBTTL TEST 5: READ COMPATABILITY/READ UTILITY. 
344 
; TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 
BGNTST 
TS:: 
LET RANDOM :B= #1 ;SET THE RANDOM OPERATIONS FLAG. 
VB #1,RANDOM 
LET EXPBOT :B= #1 ;SET EXPECT BOT FLAG. 
#1,EXPBOT 
JSR PC,SETCH ;CMD 1 = SET CHARACTERISTIC. 
JSR PC,SETRW ;CMD2=REWIND. 
LET STAFLG :B= #0 ;CLEAR START FLAG 
CLRB STAFLG 
LET (R1)+ := #ROF ;CMD3 = READ ——— F(R) 
Sd 
LET (R1)+ := #DATCNT ;SET LENGTH TO MAX FOR UNKNOUN LENGTHS. 
MO #DATCNT,(R1)+ 
LET (R1)+ := #77777 ;SET RECORD COUNT TO MAX FOR WHOLE TAPE 
MOV #77777, CR1)+ 
LET (R1)+ := #RANP ;PATTERN = wa" eRUP (RI) 
1 
LET (R1) := #END ;STORE END OF SEQUENCE CODE IN TABLE. 
JSR PC,EXALL ;EXECUTE ALL CMDS IN SEQ TBL ON ALL UNITS. 
; LET ALLEOT :B= ALLEOT + #1 FLAG TO ALLOW ALL UNITS AT EOT TO READ REV 
F LET R1 := #CMDSEQ INIT CMD SEQ TBL POINTER. 
; LET (R1)+ := #RDR ;CMD1 = READ REVERSE. 
3 LET (R1)+ := #DATCNT ;SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
3 LET (R1)+ := #77777 ;REC D COUNT = MAX FOR WHOLE TAPE. 
3 LET (R1)+ := #RANP ;PATTERN = RANDOM. 
3 LET (R1) := #END ;STOR E END OF SEQUENCE CODE IN TABLE. 
; JSR PC, ay ™ ;GO EXECUTE READ REV. OF ENTIRE TAPE. 
LET ALLEOT :B= #0 ;CLEAR ALL UNITS @ EOT FLAG 
CLRB ALLEOT 
LET Ri := #CMDSEQ ;TOP OF COMMAND TABLE 
MOV #CMDSEQ,R1 
JSR PC, SETRW ; ISSUE : REWIND COMMAND (TWR) 
LET (R1)+ := #END ; TERMINATOR 
JSR PC,EXALL ;ISSUE THE REWIND 
EXIT TST 
TRAP CSEXIT 
-WORD 1L10040-. 
EVEN 
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: HARDW 
TES 
2638 027524 ENDTST 
027524 L10040: 
027524 104401 TRAP CSETST 
| 
| 
I 


ee ee 





ee 
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TEST 5S: 


5679 


027526 
027526 


027526 
0 


027630 


027634 


027704 
027710 


105037 
112737 
Bae 
013737 
012702 


005037 
105037 
012701 
000000 


021127 
00 


012701 
005337 


003533 
000001 
002213 
006772 
002220 
002222 
030342 
030342 
030342 
030342 
030342 
030342 
030342 
003450 
003546 


003554 


177777 


000002 


003450 


003554 
003452 


003532 
003540 


003556 


SEQ 0165 


-SBTTL TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


3+ 
; TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


T6:: 


$B 


3$: 


1$: 


2s: 


BGNTST 
LET RANDOM :B= #0 ;CLEAR RAMDOM MODE FLAG. 
L RANDOM 
LET EXPBOT :B= #1 ;SET EXPECT BOT FLAG. 
MOVB #1 ,EXPBOT 
LET IRE :B= PIRE sMOVE INHIBIT — REPORT FLAG. 
JSR PC,SETCH ;CMD 1 = SET CHARACTERISTIC. 
LET CMDSEQ+2 := CHAR sMOVE CHAR CODE FROM P TBL TO SEQ TBL. 
CHAR , CMDSEQ+2 
LET R2 := #CMDD ;R2 POINTS TO — a4 P io E. 
JSR PC,PTCMDS ;sMOVE CMD 2 FROM P TBL TO SEQ TBL. 
JSR PC,PTCMDS sMOVE CMD 3 FROM P TBL TO SEQ TBL. 
JSR PC,PTCMDS sMOVE CMD 4 FROM P TBL TO SEQ TBL 
JSR PC,PTCMDS sMOVE CMD S FROM P TBL TO SEQ TBL 
JSR PC,PTCMDS sMOVE CMD 6 FROM P TBL TO SEQ TBL 
JSR PC,PTCMDS sMOVE CMD 7 FROM P TBL TO SEQ TBL. 
JSR PC,PTCMDS ;MOVE END CMD FROM P TBL TO SEQ TBL. 
LET JLOOP := #0 ;CLEAR JMP CMD LOOP COUNT. 
CLR JLOOP 
LET STAFLG :B= #0 ;CLEAR START FLAG 
LRB STAFLG 
LET R1 := #CMDSEQ sINIT SEQUENCE TABLE POINTER. 
MOV #CMDSEQ,R1 
RJMP=0 sENABLE JMP SUBSTITUTION FOR BR, IF NECESSARY. 
WHILE (R1) NE #END DO s;WHILE THERE me ove Lert IN SEQUENCE TBLE: 
CMP (R1),#END 
oo .*6 
50514$ 
CMP = #JMP.C,(R1) :IS THIS A JUMP eM? 
BNE $ ;BR IF NOT. 
LET Rl := R1 + #2 sPOINT TO BRF. 
ADD #2,R1 
MOV (R1)+,JLOC sSAVE BRF (LOCATION). 
CMP (R1)+,JLOOP ;HAS LOOP COUNT BE SATISFIED? 
BNE i$ ;IF NOT, JMP AGAIN. 
LET Rl := R1 + #2 ;IF SO, ADJUST eee -4 a 
BR 3$ AND GO TO NEXT COMMAND. 
LET JLOOP := JLOOP + #1 ;UPDATE THE LOOP COUNT. 
INC JLOOP 
LET R1 := #CMDSEQ sINIT CMD SEQ TABLE POINTER. 
MOV #CMDSEQ,R1 
DEC JLOC ;DECR LOCATION COUNTER. 


ee 


ET ee 


———— ————— LT 
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5680 027714 001747 BEQ 3% ;IF THIS IS THE RIGHT LOCATION TO JMP TO, GO SET UP. 
5681 027716 LET R1 := Ri + #10 ;IF NOT, UPDATE SEQ POINTER TO NEXT CMD. 

027716 062701 000010 ADD #10,R1 

5682 027722 000772 BR 2$ ;D0 IT AGAIN. 

5683 027724 022711 000020 6$: CMP | la (R1) ;DELAY 

5684 027730 001026 BNE ;BR IF NOT. 

5685 027732 LET Ri: := R1 + 04 ;R1 = LOCATION OF N COUNT. 

027732 062701 000004 ADD #4,R1 
5686 027736 LET TIME2 := (R1) ;SAVE N COUNT. 
027736 011137 003446 MOV (R1), TIME? 

5687 027742 7$: DELAY 10. ;GO TO SUPER-WAIT 1 MSEC. 
027742 012727 000012 MOV #10. ,(PC)+ 
027746 000000 . WORD 
027750 013727 002116 MOV LSOLY,(PC)- 
027754 000000 . WORD 
027756 005367 177772 DEC -6(PC) 
027762 001375 BNE -- 

7764 005367 177756 DEC -22(PC) 

027770 001367 BNE --20 

5688 027772 005337 003446 DEC TIME2 

5689 027776 001361 BNE 7$ 

90 030000 LET R1 := Ri + #4 sPOINT TO NEXT CMD. 

030000 062701 000004 ADD #4 ,R1 

5691 030004 000713 BR 3$ 3GO CHECK NEXT CMD. 

5692 030006 004737 010000 4$: JSR __ PC, SETUP ;G0 SETUP THE COMMAND BLOCK. 

5693 eet WHILE NCNT LT NCNT1 DO ;WHILE THERE ee ee REMAINING: 
030012 023737 003420 003422 CMP te NCNT1 
030020 002402 BLT 
030022 000137 030274 JMP 5os16$ 

5694 030026 004737 007672 JSR PC,CMDAC sSTORE CMD ASCII IN ERROR MSG. 

5695 030032 004737 007332 JSR _PC,EXSUB sISSUE CMD TO ALL,AWAIT INTS,CHECK STATUS. 

5696 030036 IF CMDWRD EQ #GES THEN ;IF CMD IS GET STATUS THEN: 

030036 023727 003426 100017 CMP CMDWRD , #GES 
030044 001402 BE +6 
030046 000137 030056 JMP 50517$ 

5697 030052 004737 020212 JSR PC,PRXST sPRINT EXTENDED STATUS REGISTERS. 

5698 030056 ENDIF 
030056 50517$: 

5699 030056 004737 020274 JSR PC, CKHAE ;CHECK HALT AFTER EACH ag FLAG. 

5700 030062 LET R2 := #1 ;SET ALL UNITS AT BOT/EOT 
030062 012702 000001 MOV #1,R2 

5701 030066 004737 017666 JSR PC,FIRSTU ;FIND FIRST UNIT 

5702 030072 WHILE DEVTBL(RS) NE #END DO ;WHILE THERE ARE MORE UNITS: 

030072 50520$: 

030072 026527 002536 177777 CMP DEVTBLCRS), #END 
030100 001002 BN .¢ 

030102 000137 030200 JMP 305218 

5703 030106 IF #M0D.CO SETIN CMDWRD THEN ;IF CMD IS REVERSE THEN: 

030106 032737 000400 003426 BIT anod.. CO, CMOWRD 
030114 001002 BNE 
030116 000137 030144 JMP s05224 

5704 030122 IF #X0.BOT NOTSETIN EOTFLG(RS) THEN ;IF NOT AT BOT T 
030122 032765 000002 003516 BIT #x0.BOT, NEOTFLGCRS) 
030130 001402 BEQ .*6 
030132 000137 030140 JMP 50523$ 

5705 030136 LET Re := #0 ;CLEAR EOT/BOT FLAG. 


= ee eee ae —— 


5709 
5710 030170 


0 
5711 Seetss 
5712 goatee 
5713 030172 
5714 030176 


0 
5715 ceeees 


0 
5716 osesis 


0 
5717 cenete 
5718 rt retes 


5719 030244 
5720 030250 


0 
5721 030250 


03 
5722 erases 
5723 pentee 
5724 Senses 
5725 030264 

030 
5726 030272 
5727 030274 


5728 
5729 


- — ee ee eee 


005002 


020227 
001402 
000137 
013737 
005237 
105237 
023727 


000137 


105037 


005237 
013737 
000647 
004737 


030172 


000001 
000001 
030172 


017734 


000001 
030254 


003420 
003422 


003543 
003434 


030250 
030364 


030260 


003543 


003420 
003426 


016530 


003516 
003426 


003422 


000002 


003432 
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ENDIF 


ELSE 


505223: 
IF #X0.E0T NOTSETIN EOTFLGC(RS) OR #CMD. -CQ NOTSETIN 


LET R2 := 


ENDIF 


ENDIF 
JSR PC,NEXTU 
ENDDO 


L13 


#0 


IF R2 EQ #1 THEN 


LET NCNT1 


:= NCNT + #1 


CLR R2 


50523$: 
sELSE IF CMD IS NOT REVERSE: 
JMP 50524$ 


CMOWRD THEN 
#X0.EOT ,EOTFLG(RS) 
50525$ 

@CHD . CO, CHDWRD 
50526$ 


50525$: 
;IF NOT AT EOT OR NOT A MOTION CMD THEN: 
;CLEAR eetaa”! B G. 


BEQ 
BIT 
BEQ 
JMP 


50526$: 
50524$: 
:FIND NEXT UNIT 
: 
50520$ 
50521$: 
;IF ALL UNIT ARE AT EOT/BOT THEN: 
CMP R2,#1 
BEQ 
JMP 
;FORCE ———, OF COMM. 


50527$ 
AND. 
NCNT ,NCNT1 


SEQ 0167 


INC 
LET ALLEOT :B= ALLEOT + #1 ;FLAG ALL UNITS AT want Lb ALLOW VERIFY OF DATA 
IF CMDLG EQ #2 THEN 


JSR PC, TSWEOT 
ENDIF 


ELSE 


50527$: 
LET ALLEOT :B= #0 ;WHEN NOT ALL @EOT, — 


ENDIF 


LET 
LET 
ENDDO 


JSR 


NCNT 
PCMDWD := 


PC, VFYDAT 


:* NCNT «+ #1 


CMOWRD 


sWHEN WRITING IS CURRENT COMMAND 
CMP CMOLG, #2 
BEQ .*6 
JMP 50530$ 

:GO WRITE/READ REV ONE RECORD BEYOND EOT 
50530$: 


50531$ 


ALLEOT 


50531$: 
sUPDATE RECORD COUNT. 
NCNT 


sSAVE PREVIOUS COMMAND WORD. 
MOV CMOWRD , PCMDWD 


BR 50515$ 


505163: 
:IF LAST CMD WAS & WRITE VERIFY, THEN GO 
;VERIFY THE LAST N RECORDS OF DATA, 


————— ee eee ee 
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1200 
TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


5730 030300 
030300 
030304 

5731 

5732 

5733 030304 
030304 

5734 030310 
030310 

5735 030316 

303 

5736 030322 

5737 030326 
030326 

5738 030332 

5739 

5740 

5741 030336 
030336 


5742 


000137 


177777 
105037 
112737 
sate 


012711 
004737 


104432 
000130 


027634 


003543 
000001 
003554 
007016 


177777 
007036 


003535 
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ENDDO 
JMP 50513$ 
50514$: 
$BRUMP=-1 ;TURN OFF JMP SUBSTITUTION (SPMACJ CONTROL, ONLY). 
LET ALLEOT :B= #0 s;NOT AT EOT 
CLRB ALLEOT 
LET RPTFLG :B= #1 sREQUEST A REPORT 
MOVB #1,RPTFLG 


LET R1 := @CMDSEQ 


JSR PC,SETRW 
LET (R1) := END 


JSR PC,EXALL 


EXIT TST 


;SET UP THE —— TABLE ADDRESS 


sSTORE REWIND COMMAND 
sTERMINATE THE TABLE 


MOV 
sISSUE THE REWINDS 


OCMDSEQ,R1 


SEND, (R1) 


TRAP CSEXIT 
-WORD L10041-. 


SEQ 0168 


————_— eee ee 
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TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0169 | 
5744 
5745 3 SUBROUTINE TO MOVE A ee FROM THE SOFTWARE P “ABLE TO 
5746 ; THE COMMAND SEQUENCE TABLE. 
5747 ; ANPUTS: R2 = POINTER TO SOFT “P” TABLE 
5748 ; OUTPUTS: 
5749 ; REGISTERS: R3. 
Le ; CALLS: 
5752 030342 PTCMDS: LET R3 := (R2)+ - #1 SHIFT +1 ;R3 = COMMAND TABLE INDEX. 
030342 012203 MOV (R2)+,R3 
030344 005303 DEC R3 
030346 006303 ASL R3 
5753 030350 LET (R1)+ := CMDTBL(R3) sMOVE COMMAND WORD. 
030350 016321 003656 MOV CMOTBL(R3),(R1)- 
5754 030354 LET (R1)+ :* (R2)- sMOVE @ OF BYTES. 
030354 012221 MOV (R2)+,(R1)- 
5755 030356 LET (R1)+ := (R2)-+ sMOVE @ OF OPERATIONS. 
030356 012221 MOV (R2)+,CR1)- 
5756 030360 LET (R1)+ :* (R2)- sMOVE PATTERN CODE. 
030360 012221 MOV (R2)+,(R1)- 
sree 030362 000207 RTS PC 
5759 i SUBROUTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT 
5760 i INPUTS: 
5761 ; OUTPUTS: 
5762 i REGISTERS: 
are3 i CALLS: CMDAC ,EXSUB , CKHAE 
5765 030364 000240 TSWEOT: NOP 
5766 030366 000240 NOP 
5767 030370 004737 007332 JSR PC,EXSUB *WRITE ONE RECORD BEYOND EOT 
5768 030374 004737 020274 JSR PC, CKHAE :SO0 THAT READ SHORTER STOP DISTANCE 
5769 sSHALL POSITION HEAD IN CLEAN IRG GAP 
5770 030400 LET PCMDWD := CMDWRD ;REPOSITION TAPE 
030400 013737 003426 003432 MOV CMOWRD , PCMOWD 
5771 030406 LET CMDWRD := #RDR sBEFORE EXTRA RECORD 
030406 012737 104401 003426 MOV @ROR , CMOWRD 
5772 030414 LET CMOLG := 04 sBY READING REVERSE 
030414 012737 000004 003434 MOV 04 ,CMOLG 
5773 030422 LET CMDPKT := CMDWRD CLR.BY #BRF.C 
030422 013737 003426 002314 MOV CMOWRD , CMDPKT 
030430 042737 004000 002314 BIC OBRF .C ,CMOPKT 
5774 030436 LET CMDSAV := CMDPKT sTHAT RECORD TO ALLOW 
030436 013737 002314 003430 MOV LMDPKT , CMDSAV 
5775 030444 LET CMDPKT+CP.ADL := DATARD sNEXT COMMAND IN THE 
030444 013737 003416 002316 MOV DATARD,CMDPKT+CP. ADL 
5776 030452 004737 007672 JSR PC,CMDAC ;TABLE TO BE EXECUTED 
5777 030456 004737 007332 JSR PC,EXSUB 
5778 030462 004737 020274 JSR PC, CKHAE 
5779 030466 000207 RTS PC 
578 .EVEN 
5781 030470 ENDTST 
030470 L10041: 
0470 104401 TRAP CSETST 


030470 
5782 030472 ENDMOD 


-— ee ee ~ 


ee ee 
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TEST 6: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. SEQ 0170 

gree - TITLE PARAMETER CODING 

Lad -SBTTL HARDWARE PARAMETER CODING SECTION 

5807 030472 BGNMOD 

5808 

5809 oe 

5810 ; T ARE tg CODING SECTION CONTAINS MACROS 

5611 $ T ARE Y THE SUPERVISOR TO BUILD P-TABLES. THE 

5812 s MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

5813 s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

5614 s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

5615 ; WITH THE OPERATOR. 

5816 ge= 

5817 

5818 030472 BGNHRC 
030472 ©00024 -WORD L10042-L $HARD/2 
030474 L$HARD 

5825 030474 GPRMA TS4ADR,0,0,160002,177564, YES 
030474 000031 -WORD TSCODE 
030476 030520 «WORD TS4ADR 
030500 160002 -WORD TS$LOLIM 
030502 177564 -WORD TS$HILIM 

5826 030504 GPRMD TS4VCT,2,0,777,60,776, YES 
030504 001032 -WORD TSCODE 
030506 030535 -WORD TS4VCT 
030510 000777 «WORD 777 
030512 -WORD TS$LOLIM 

se27 030514 000776 -WORD TS$HILIM 

5828 030516 EXIT HRD 
030516 013004 -WORD TSCODE 

-NLIST BEX 

5837 030520 124 123 123 TS4ADR: .ASCIZ /TSSR ADDRESS/ 

5838 030535 126 105 103 TS4VCT: .ASCIZ /VECTOR/ 

5839 LIST BEX 

5840 .EVEN 

5841 

5842 030544 ENDHRD 

.EVEN 

030544 L10042: 


eee ee eer rT STs sce = 


PARAMETER CODING 
SOFTWARE PARAMETER CODING SECTION 


5845 
5846 


000531 


000130 
031324 
000001 


000130 
031343 
000400 


30 
030562 001130 
031372 
030566 000001 
5868 pond Tag 


001130 
031416 
000400 
5869 030576 

002130 
031440 
000001 
004024 


002130 
031461 
000400 


0 
5870 z=. 
5871 center 


0 
5872 030614 
0 003130 
031505 
0 000001 
5873 030622 
0 003150 
031531 
0 000400 
5874 030630 
030630 004130 
031564 
030634 000001 
5875 
5876 030636 


030636 005130 
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C14 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


3¢ 
3 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS RE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSF T 
L$SOFT:: 
GPRML CLRM,0,1,YES 
GPRML RRVM,0,400,YES 
GPRML HAEM,2,1,YES 
GPRML RCVERM,2,400,YES 
GPRML IRECM,4,1,YES 
XFERT NEXTSP 
GPRML BADTM,4,400, YES 
NEXTSP: GPRML DINTM,6,1,YES 
GPRML IREM,6,400,YES 
GPRML RAMM,10,1,¥ES 
GPRML EWPT,12,1,YES 


«WORD L10043-L$SOFT/2 


-WORD TSCODE 
-WORD CLRM 
-WORD 1 
-WORD TSCODE 
-WORD RRVM 
-WORD 400 
-WORD TS$CODE 
-WORD HAEM 
-WORD 1 
-WORD TSCODE 
-WORD RCVERM 
-WORD 400 
-WORD TSCODE 
-WORD IRECM 
-WORD 1 
-WORD TSCODE 
-WORD TS$CODE 
-WORD BADTM 
-WORD 400 
-WORD TS$CODE 
-WORD DINTM 
-WORD 1 
-WORD TSCODE 
-WORD IREM 

- WORD 

-WORD T$CODE 
-WORD RAMM 

- WORD 

WORD TSCODE 








- Se ee ee ee 


14 
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030640 031610 
0 000001 
5877 030644 GPRML CHGM,12,400, YES 


005130 
030646 031646 
030650 000400 
5878 030652 XFERF ENDSP1 
030652 127044 
5879 030654 GPRMD CHARM,14,0,377,0,777, YES 
30654 006032 
030656 031665 
30660 000377 
000000 
030664 000777 
5880 030666 GPRMD CMD2M,16,0,37,1,33,YES 
030666 007052 
030670 031712 
000037 
030674 000001 
030676 000033 
5881 030700 GPRMD BPCRM,20,0,-1,1,DATCNT, YES 
030700 010052 
030702 031720 
030704 177777 
030706 000001 
030710 010000 
5882 030712 GPRMD NUMBM,22,D,-1,1,77777, YES 
030712 011052 
030714 031732 
030716 177777 
030720 000001 
030722 077777 
5883 030724 GPRMD PATTM,24,D,17,0,10, YES 
030724 012052 
030726 031752 
030730 000017 
000000 
i 
i 


030734 000010 

5884 050736 GPRMD CMD3M,26,0,37,1,33,YES 
030736 013052 

030740 031764 

000037 


030744 000001 
030746 000033 
5885 030750 GPRMD BPCRM,30,0,-1,1,DATCNT, YES 
030750 014052 
030752 031720 


5886 030762 GPRMD NUMBM,32,D,-1,1,77777,YES 
030762 015052 
030764 031732 
030766 177777 
030770 000001 
030772 077777 
5887 030774 GPRMD PATTM,34,D,17,0,10, YES 


ee ee 


T$LOLIM 


T$LOLIM 
T$HILIM 


T$CODE 
— 


TS$LOLIM 
T$HILIM 


T$CODE 
NUMBM 


<1 
T$LOLIM 
T$HILIM 


T$LOLIM 
T$HILIM 


T$CODE 
CMD3M 
37 
T$LOLIM 
T$HILIM 


T$CODE 
BPCRM 


-1 
T$LOLIM 
T$HILIM 


T$CODE 
NUMBM 


-1 
T$LOLIM 
T$HILIM 


-_—— ee ee eee 
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030774 S1e03e 
0 Sey 


000000 
03 000010 

5888 031006 GPRMD CMD4M,36,0,37,1,33,YES 
031006 017052 
031010 031772 
000037 


000001 

031016 000033 

5889 031020 GPRMD BPCRM,40,D,-1,1,DATCNT, YES 
031020 


020052 
031022 031720 
031024 177777 
00000 


1 

031030 010000 
5890 031032 GPRMD NUMBM,42,D0,-1,1,77777,YES 

031032 021052 


031 000001 
031042 077777 

5891 031044 GPRMD PATITM,44,D0,17,0,10,YES 
031044 022052 
031046 031752 
000017 


03 
5892 et peas GPRMD CMDS5M,46,0,37,1,33,YES 


! 
031066 
5893 931070 GPRMD BPCRM,50,0,-1,1,DATCNT, YES 
i 031070 024052 
031072 031720 
031074 177777 
031076 000001 
031100 010000 
5894 031102 GPRMD NUMBM,S52,0,-1,1,77777,YES 
031102 025052 
031104 031732 
106 177777 
000001 
\ 
' 
} 


031112 077777 
5895 031114 GPRMD PATTM,54,D,17,0,10,YES 
031114 026052 
031116 031752 
031120 000017 


031122 000000 
031124 000010 

5896 031126 XFER ENDSP2 
031126 002004 

5897 031130 ENDSP1: XFER ENDSP 


031130 075004 


ee oe ee = ee es 


T$CODE 
PATTM 
17 
T$LOLIM 
T$HILIM 


7 
T$LOLIM 
T$HILIM 


T$CODE 
BPCRM 


T$LOLIM 
TS$HILIM 


T$CODE 
= ie 
T$LOLIM 
T$HILIM 


T$CODE 
— 


1 
T$LOLIM 
T$HILIM 


T$CODE 
CMDSM 
37 
T$LOLIM 
T$HILIM 


T$CODE 
— 


T$LOLIM 


T$HILIM © 


T$CODE 
ho 
T$LOLIM 
T$HILIM 


T$CODE 
PATTM 


17 
T$LOLIM 
T$HILIM 


T$CODE 
TS$CODE 


SEQ 0173 


et are: Y 


—— ————_—— — ttt. a 


! F1i4 
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4 





5898 031132 ENDSP2: GPRMD CMD6M,56,0,37,1,33,YES 
031132 027052 -WORD TS$CODE 
031134 032006 -WORD CMD6M 
1136 000037 -WORD 37 
031140 000001 -WORD TS$LOLIM 
031142 000033 -WORD T$HILIM 
5899 031144 GPRMD BPCRM,60,D,-1,1,DATCNT, YES 
031144 030052 -WORD TS$CODE 
031146 031720 -WORD BPCRM 
031150 177777 -WORD -1 
031152 1 -WORD TS$LOLIM 
031154 010000 -WORD TS$HILIM 
5900 031156 GPRMD NUMBM,62,D,-1,1,77777,YES 
031156 031052 -WORD TSCODE 
031160 031732 - WORD M 
031162 177777 -WORD -1 
031164 000001 -WORD TS$LOLIM 
031166 077777 -WORD  TS$HILIM 
5901 031170 GPRMD PATTM,64,0,17,0,10,YES 
031170 032052 -WORD TSCODE 
031172 031752 -WORD PATTM 
031174 000017 -WORD 17 
031176 000000 -WORD TS$LCLIM 
031200 000010 -WORD  TS$HILIM 
5902 031202 GPRMD CMD7M,66,0,37,1,33,YES 
031202 033052 -WORD TSCODE 
1204 032014 -WORD CMD7M 
1206 000037 -WORD 37 
031210 000001 -WORD T$LOLIM 
031212 000033 -WORD  TS$HILIM 
5903 031214 GPRMD BPCRM,70,D,-1,1,DATCNT,YES 
031214 034052 -WORD T$CODE 
031216 031720 -WORD BPCRM 
031220 177777 -WORD -1 
031222 001 -WORD T$LOLIM 
031224 010000 -WORD T$HILIM 
5904 031226 GPRMD NUMBM,72,D,-1,1,77777,YES 
031226 035052 -WORD TSCODE 
031230 031732 WORD NUMBM 
031232 177777 WORD -1 
031234 000001 WORD TS$LOLIM 
031236 077777 WORD TS$HILIM 
5905 031240 GPRMD PATTM,74,0,17,0,10,YES 
031240 036052 -WORD TS$CODE 
031242 031752 -WORD PATTM 
031244 000017 -WORD 17 
031246 000000 -WORD TS$LOLIM 
031250 000010 -WORD TS$HILIM 
5906 031252 GPRMD CMD8M,76,D,37,1,33,YES 
031252 037052 -WORD TS$CODE 
1254 032022 -WORD CMD8M 
031256 000037 -WORD 37 
031260 000001 -WORD TS$LOLIM 
031262 000033 -WORD  T$HILIM 
5907 031264 GPRMD BPCRM,100,0,-1,1,DATCNT,YES 
031264 040052 -WORD TSCODE 
031266 031720 WORD BPCRM 
: 





—- ee Se — 





G14 


| PARAMETER CODING MACRO M1200 28-MAR-85 15:28 PAGE 112-4 
SOFTWARE PARAMETER CODING SECTION 


031270 177777 
00000 


0 
5908 osasre GPRMD NUMBM 102,0,-1,1,77777,YES 


031304 000001 
031306 077777 
5909 031310 GPRMD PATTM,104,0,17,0,10, YES 


031310 042052 
031312 031752 
000017 


031314 
031316 000000 
031320 000010 
5910 031322 ENDSP: 
5911 031322 XFER JMPMSG 


C31322 120004 


ae | 
T$LOLIM 
T$HILIM 


T$CODE 
= 
T$LOLIM 
T$HILIM 


T$CODE 
eo 


1 
T$LOLIM 
T$HILIM 


T$CODE 


ee ee 


| PARAMETER CODING 


5913 
5920 
5921 031324 103 
5922 031343 122 
5923 031372 110 
5924 031416 120 
5925 031440 111 
5926 031461 102 
5927 031506 104 
5928 031531 111 
5929 
5930 
5931 031562 
5932 031562 
031562 100004 
5933 031564 103 
031567 124 
031572 114 
031575 122 
1600 101 
031603 104 
031606 120 
5934 031610 105 
031613 102 
031616 040 
031621 122 
031624 040 
031627 122 
31632 116 
031635 115 
031640 123 
031643 105 
5935 031646 103 
031651 116 
31654 040 
031657 104 
031662 105 
5936 031665 103 
031670 122 
031673 124 
031676 111 
031701 111 
031704 040 
031707 104 
5937 031712 103 
031715 057 
5938 031720 102 
031723 040 
031726 125 
031731 000 
5939 031732 043 
031735 106 
031740 120 
031743 101 
031746 117 
03175 000 
5940 031752 120 


i ee ee 


EWPT: 


CHARM: 


CMD2M: 
BPCRM: 


NUMBM : 


PATTM: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


H14 
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BEX 
/CLEAR COUNTERS/ 


0 
/DISABLE INTERRUPTS/ 
¢ ams RFC ERROR REPORT/ 


JMPMS2 
/CONTROLLER RAM DUMP/ 


7ENABLE EARLY WARNING MESSAGES/ 


/CHANGE CMD SEQ/ 


/CHARACTERISTICS CODE/ 


"CMD/2" 
/BRF COUNT/ 


/% OF OPERATIONS/ 


/PATTERN/ 


- WORD 


—_ — -- -—- — 


T$CODE 


| 
i 
i 


031755 
031760 
5942 
5943 031762 


5944 031762 
031762 


9 
7 032030 


5963 
5964 032230 


032230 
ergtey 


03223 
5965 032234 


ll TC 


PARAMETER CODING 
SOFTWARE PARAMETER CODING SECTION 


124 
116 


032244 
000004 


105 
000 





122 


a  - e e 
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-LIST BEX 
-EVEN 
EXIT SFT 
-WORD TSCODE 
IST BEX 
CMD3M: .ASCIZ “CMD/3" 
CMD4M: .ASCIZ "CMD/4" 
CMDSM: .ASCIZ "CMD/S" 
CMD6M: .ASCIZ “CMD/6" 
CMD7M: .ASCIZ “CMD/7" 
CMD8M: .ASCIZ “CMD/8" 
-LIST BEX 
ENDSFT 
-EVEN 
L10043: 


5 EERE EERE EA EA EEE EERE ERE EERE RE EEA EEEE ERE ERERE EERE EEEREEEEERERERE RES 
5 EERE ER REAR EEE REE ERE REE EE EA ERE EERE EE EEE EREEEEA RARE EEEEEEEEEEEREEEEEEE ED 
; PATCH AREA 


PATCH:: .BLKW 64. 
5 EERE ERE EEE ERE EERE EE ERE EREREEKR EKER ER EREREREREEEEAEEEREEEEEEEESE 
5 REE EERE EERE EEE EERE EEE EEE REAR ERE RE ERE RE EEEEE EERE EREEEEEEREREEEEE 


LASTAD 
-EVEN 
-WORD T$FREE 
-WORD T$SIZE 
L$LAST: : 
ENDMOD 


ee ay 


ess na 


| PARAME 
HARD C 


972 
5973 032234 
5974 032234 
032234 
2236 
032240 
5975 032240 
5976 032242 
5977 032244 
032244 
5978 032244 
5979 
5980 


ee ee ee ee ee 


TER CODING 
ODED P-TBL 


000000 
000002 
172522 
000224 


000001 
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-SBTTL HARD CODED P-TBL 


;DIAG IS PRE-PARAMETERIZED PER TBL 


BGNSETUP 1 
BGNPTAB 


L10044: 
172522 
ENDPTAB 
ENDSETUP 


L10046: 


- END 


- WORD 
- WORD 


SEQ 0178 


0 
L10046-./2-1 


| PARAMETER CODING 
SYMBOL 


| TABLE 
ACK.C = 100000 G 
ADR” = 000020 G 
ALLEOT 003543 G 
ASSEMB= 000010 
ATTNM 004431 
A 004741 G 
AUTOOM 024150 
BADTM 031461 
BADTSW 002211 G 
BFSEQ 025332 
FSEQO 025356 
BFSEQi 025430 
FSEQ2 025442 
BFSEQ3 025534 
BFSEQS 025606 
BFSEQS 025650 
FSEQ6 025722 
BFSEQ7 025754 
FSEQ8 026006 
BFSEQ9 026040 
BFSE10 026062 
BGNFLG= 003474 
BINC 016310 
BITO = 000001 G 
BITOO = 000001 G 
BITO1 = 000002 G 
BITO2 = 000004 G 
BITO3 = 000010 G 
IT04 = 000020 G 
BITOS = 0G 
1T06 = 000100 G 
BITO7 = 000200 G 
BITOB = 000400 
BITO9 = 001000 G 
BIT1 = 000002 G 
BIT10 = 002000 G 
BIT11 = 004000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT15 = 100000 G 
BIT2 = 
BITS = 000010 G 
BIT4 = 000020 G 
BITS = 000040 
BIT6 = 000100 G 
BIT? = 000200 G 
BIT8 = 000400 
BIT9 = 001000 G 
BOE = 
BORERS 015534 G 
BPCRM 031720 
BRCPK 002330 G 
BRFCNT 003424 G 
RF .C = 004000 G 
BTADDR 002550 G 
BTMSG1 015322 


ee ee ee ee 
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C 
CP. ADH= 


015407 
64 


fo] 

So 

tw 

w 

— 

> 
AOHOHOHHHAHAHAHAHHHAAGR AAOOH oo 


So 
So 
oS 
oul 
oul 
ao 
o 


050436 
000004 G 


C$SEFG= 


000046 


K14 


C$SPRI= 


EXCRTN 
EXCUTE 





~ 
ODO FD AMDOAAAD 


011466 
010774 G 


GSYES = 


007332 G 


SEQ 0179 


we nee 


' PARAMETER CODING 
‘ SYMBOL TABLE 


. wT 
oO 
eseae 


I$MSG = 


I$SRV 
I$ 


L 
LVECT 
Lsace 


002206 G 
031372 
004136 G 


s 
$ 
°o 
og 


000010 G 
003470 G 
002110 G 


ee eee 
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002036 G 
024424 G 





3 
017734 G 


177774 
004515 


G 
G 
G 
005167 G 
G 
G 
G 


o 

— 

& 

ys) 

o °o 
HOAHAAHAAAAA 


B82 
S3sru 
OAHOOOAaGM 


031564 
005450 


RAMRSH 003344 
RAMSIZ 003406 G 
RAMWRT 002214 G 
RANB 003440 
RANBC = 153624 G 
RANCMD 026366 
RANDOM 003533 G 
RANP = 76 
RANRD 026426 
RANS 3442 
RANSC = 032561 G 
RANW 6526 
R 502 
RANWY 026514 
RAN1 010736 G 
RAN2 010740 G 
RAN3 010742 G 
RCVERM 031416 
ROF = 104001 G 
ROR = 104401 G 
RECCNT 003330 G 
RECLOG 003501 G 
RECRED 006560 
CTAP 006674 G 
CUD 12310 G 
REPEAT= 050256 
RERM G 
RETRY = 050254 
RETRYC 003474 G 
EWRT 015710 
BC 002660 G 
RFCERM 004350 G 
RFREC 002760 G 
RF 002770 G 
RLEXM 004404 G 
RNF = 125401 G 
RNOPSC= 177740 G 
RNR = 105401 G 
RNYM 600 G 
RPF = 105001 G 
RPR = 125001 G 
RPTCNT 003476 G 
RPTFLG 003535 G 
RPTIA 21302 
RPT1B) =©021357 
RPTIC § 021430 
RPT1D §=©021501 
RPT1E 021727 
RPTIF 021605 
RPT1G 021656 
RPTII 22 
RPT1J = 021757 
RPTIK 022037 
RRANV 002205 G 
RRBC 002620 G 
RECL = 20 G 
RRREC 002740 G 


SEQ 0180 © 


PARAMETER CODING 
TABL 


SYMBOL 


TC2RTN 
TC4STO 


003530 G 
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T$SUBN= 


0004 
000000 


TS$TAGL= 
T 


177777 
010047 





$F $SEL= 
$F $THE= 


000140 
000330 


$$SRC = 
$$TGSV= 


- ee ee ae 


SEQ 0181 


PARAMETER CODING 
' SYMBOL TABLE 


| #47GSi« 000000 $$TGS2= 000000 $$T0 
|, ABS. 032244 000 

000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 58622 WORDS ( 229 PAGES) 
DYNAMIC MEMORY ; > + ana ( 75 PAGES) 


ELAPSED TIME: 00:46: 
CZTKIB.BIN, CZTKIB/-SP/CR=SVC/ML , SPMACU/ML ,CZTKIB 
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= 000000 


N14 


$$$TAG= 050000 


ee ee ee 


SEQ 0182 


